|
|
ru.linux- RU.LINUX --------------------------------------------------------------------- From : Sergey Zhemchugov 2:463/822.8 25 May 2005 03:47:58 To : All Subject : zipfs --------------------------------------------------------------------------------
то есть
=== Begin file ===
-+- uzip.new 2005-02-25 00:20:46.000000000 +0200
+++ uzip 2005-05-25 03:30:56.530588928 +0300
@@ -36,7 +36,8 @@
# -rw-r--r-- 2.2 unx 2891 tx 1435 defN 20000330.211927 ./edit.html
# (perm) (?) (?) (size) (?) (zippedsize) (method) (yyyy)(mm)(dd)(HH)(MM)
(fname)
-my $regex_zipinfo_line =
qr"^(\S{10})\s+(\d+\.\d+)\s+(\S+)\s+(\d+)\s+(\S\S)\s+(\d+)\s+(\S{4})\s+(\d{4})(
\d\d)(\d\d)\.(\d\d)(\d\d)(\d\d)\s(.*)$";
+#my $regex_zipinfo_line =
qr"^(\S{10})\s+(\d+\.\d+)\s+(\S+)\s+(\d+)\s+(\S\S)\s+(\d+)\s+(\S{4})\s+(\d{4})(
\d\d)(\d\d)\.(\d\d)(\d\d)(\d\d)\s(.*)$";
+my $regex_zipinfo_line =
qr"^(.{10})\s+(\d+\.\d+)\s+(\S+)\s+(\d+)\s+(\S\S)\s+(\d+)\s+(\S{4})\s+(\d{4})(\
d\d)(\d\d)\.(\d\d)(\d\d)(\d\d)\s(.*)$";
# 2891 Defl:N 1435 50% 03-30-00 21:19 50cbaaf8 ./edit.html
# (size) (method) (zippedsize) (zipratio) (mm)(dd)(yy)(HH)(MM) (cksum) (fname)
=== End file ===
Суть грабли понятна, unzip -Z -l -T вместо строки вида
-rw-rw-rw- 2.0 fat 2377 t- 1191 defN 20031024.030000 avp.klb
-rw-rw-rw- 2.0 fat 342 t- 191 defN 20031024.030000 avp.set
-rw-rw-rw- 2.0 fat 4637 b- 4501 defN 20031024.030000 avp.vnd
Выдаёт такую
-rw---- 2.1 ntf 57219 b- 57108 defN 20050218.181938 unp008.avc
-rw---- 2.1 ntf 51887 b- 51771 defN 20050218.181938 unp009.avc
В результате \S не срабатывает.
Hо не это меня интересует. :-)
Эту граблю будут фиксить? А то как-то некузяво. ;-)
--- GoldED+/LNX 1.1.4.7
* Origin: А ориджин-то спёрли.. (2:463/822.8)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.linux/28234293cb43.html, оценка из 5, голосов 10
|