This is a perl code slice in a Perl source code named "rengen_lib.pl"
and what is mean between the parenthesis"(CORE:: ... );"
sub safer_unlink {
my @names = @_;
my $cnt = 0;
my $name;
foreach $name (@names) {
next unless -e $name;
chmod 0777, $name if $Needs_Write;
( CORE::unlink($name) and ++$cnt
or warn "Couldn't unlink $name: $!\n" );
}
return $cnt;
}
By the way,I find reading the Perl Source Code is very interesting and
can get a lot of knowledge,But for me,It has some difficulties
sometimes,I need lookup many books when I meet a question.So can you
recommand some Groups or News Groups which research it specially.Then
when I have some problems I could ask about it!
thanks!
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
