Help for this page

Select Code to Download


  1. or download this
    #!/opt/perl5/current/bin/perl

...
    next unless -e $file;
    print "$file \n";
}
  2. or download this
    foreach $file ( grep {-e} @files ) {
    print "$file\n";
}
  3. or download this
    @files = ( $CONFIG =~ /[*?]/ ) ? glob( $CONFIG ) : ( -e $CONFIG ) ? ( 
+$CONFIG ) : ();