Ramkumar wrote:
[deleted]
(1) opendir(DIR, $folderpath) || die "Error in opening dir $dirname\n";
while(($filename = readdir(DIR)))
{print("$filename\n");}
closedir(DIR);
(2) @xmlfiles = File::Find::Rule->file()->name('*.doc')->in($folderpath);
(3) system("dir/b >\"$folderpath\\TextFiles.txt\"");
Please suggest if you have any idea to achive my requirement in perl.
perldoc find2perl
and then edit the wanted function that it emits!
Good luck
begin:vcard
fn:Angelos Karageorgiou
n:Karageorgiou;Angelos
org:Vivodi Telecommunications S.A.
email;internet:[email protected]
title:Technology Manager
tel;work:+30 211 7503 893
tel;fax:+30 211 7503 701
tel;cell:+30 6949120773
note;quoted-printable:=0D=0A=
=0D=0A=
Linkedin Profile =
=0D=0A=
http://www.linkedin.com/in/unixgr=0D=0A=
=0D=0A=
=0D=0A=
=0D=0A=
Personal Web Site=0D=0A=
http://www.unix.gr=0D=0A=
=0D=0A=
=0D=0A=
Blog Site=0D=0A=
http://angelos-proverbs.blogspot.com
x-mozilla-html:FALSE
url:http://www.linkedin.com/in/unixgr
version:2.1
end:vcard
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
