&Fill_List("/dir/error*", "/tmp/err_list"); sub Fill_List { $mask = shift; $file = shift; open (list, "> $file"); open (infile, "`ls $file|`"); $debug && warn "ls $mask\n"; while (<infile>) { print list $_ . "\n"; } close(infile); close (list); }
In reply to File problems by coec
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |