Help for this page

Select Code to Download


  1. or download this
    package PM::SharedFileTasks;
    
    ...
    }
    
    1;
    
  2. or download this
    #!/usr/bin/env perl
    
    ...
        my @files = qw{pm_1076160_2.txt pm_1076160_3.txt};
        PM::SharedFileTasks::handle(move => \@files);
    }
    
  3. or download this
    $ cat pm_1076160_1.txt
    Record 1
    ...
    ...
    Record n-1
    ID3:Name3:Street3:City3:State3:Status3
    
  4. or download this
    Function: 'modify'; File: 'pm_1076160_1.txt'
    Status1
    ...
    City2
    Function: 'move'; File: 'pm_1076160_3.txt'
    City3