Assuming you want the code in the code folder
poj#!perl use strict; use File::Copy; opendir(DIR,'../input') or die "$!"; while (readdir DIR){ unless (/^[.]{1,2}$/){ print "copying $_\n"; copy("../input/$_","../output/$_") or die "Copy failed for $_ : $!"; } }
In reply to Re: Input Output Question
by poj
in thread Input Output Question
by perlmonk007
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |