Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use strict;
    ...
    sub print_name_if_file {
          print "$_\n" if -f;
    }
    
  2. or download this
    [racket@ibmlap perl]$ ./filechng.pl testdir
    file4.pdf
    ...
    file8.pdf
    file1.pdf
    file6.pdf
    
  3. or download this
    [racket@ibmlap perl]$ ls -al testdir
    total 56
    ...
    -rw-rw-r--  1 racket racket    0 Mar 24 14:59 file7.pdf
    -rw-rw-r--  1 racket racket    0 Mar 24 14:59 file8.pdf
    -rw-rw-r--  1 racket racket    0 Mar 24 14:59 file9.pdf