ÐÐÐÐÑ,
ÐÐÑÐÑ ÑÐ ÐÐ ÑÐ ÐÑÐÐ :)
> ÐÑÐÐÐ ÑÐÐÐ ÐÐÐÑÐ ÐÐÐ ÐÑÐÐÐÐ ÑÐÐÐÐÐ Ð ÐÐÐÑÐ ÑÐ
crew:/home/dido/programing/perl# cat check.pl
#!/usr/bin/perl
$dirname = "test/";
opendir(DIR, $dirname) || die "can't opendir $dirname: $!";
foreach $file (readdir(DIR)) {
unlink $dirname.$file;
}
closedir(DIR);
crew:/home/dido/programing/perl# touch test/"file name"
crew:/home/dido/programing/perl# ls -1 test/
file name
crew:/home/dido/programing/perl# perl -d check.pl
Loading DB routines from perl5db.pl version 1.23
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(check.pl:3): $dirname = "test/";
DB<1> n
main::(check.pl:5): opendir(DIR, $dirname) || die "can't opendir
$dirname: $!";
DB<1> n
main::(check.pl:6): foreach $file (readdir(DIR)) {
main::(check.pl:7): unlink $dirname.$file;
DB<1> n
main::(check.pl:9): closedir(DIR);
DB<1> q
crew:/home/dido/programing/perl# ls -1 test/
crew:/home/dido/programing/perl#
ÐÐÑÐ ÐÐÑÐÐ
ÐÐÐÐÑÐÐÐ,
ÐÐÐÐÐÐ ÐÐÑÑÐÐ!
============================================================================
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
============================================================================
