perl - массив от ввода до colums

Question

Я пытался это сделать, и я знаю, что делаю это неправильно, но если кто-то может помочь с указателем, я был бы признателен. То, что я пытаюсь сделать, это список имен файлов из текстового файла трубы их Stat через цикл, то есть Perl разобрать строки в столбцы что-то вроде этого:

Список содержит:

/home/hack/public_html/.htaccess 
/home/hack/public_html/index.php 
/home/hack/public_html/list 

Я знаю, что это может быть полностью сделано в Perl, но я явно нужно перенаправить вывод на PERL так:

for i in $(cat list); do stat $i | perl -wnl -e '@file=split /File:/ print @file;';done 

в идеале я хотел бы получить выход из стата так:

File: `.htaccess' 
Size: 177   Blocks: 8   IO Block: 4096 regular file 
Device: 5dh/93d Inode: 159909615 Links: 1 
Access: (0644/-rw-r--r--) Uid: ( 503/ hack) Gid: ( 503/ hack) 
Access: 2013-02-24 15:09:41.000000000 -0600 
Modify: 2013-02-10 14:24:04.000000000 -0600 
Change: 2013-02-24 15:09:42.000000000 -0600 

, но мне нужно только следующее в заданном порядке колонки:

File: (the filename) Modify:(dates) Change:(dates) IO Block: (number) 

может кто-нибудь, дайте мне знать, что я делаю неправильно?

Благодаря

Answer 1

Здесь @file содержит данные из данного файла. Теперь вы можете работать с @file и искать необходимые данные по grep, split или pattern matching, хранить данные в некоторых переменных и печатать эти переменные в любом порядке.