Help for this page

Select Code to Download


  1. or download this
    my @oldlist = qw X /etc/passwd /etc/group /etc/shadow X;
    
  2. or download this
    my @newlist = map  s/\/etc\/// ,  @oldlist;
    
  3. or download this
    $         
    $ cat t.pl
    ...
    
    1
    $
    
  4. or download this
    $ cat ta.pl
    #!/usr/bin/perl
    ...
    
    1
    $
    
  5. or download this
    my @newlist = map {
                        my $l = $_;
                        $l =~ s/\/etc\///;
                      }  @oldlist;
    
  6. or download this
    $ ./tb.pl 
    
    ...
    
    1
    $
    
  7. or download this
    $ cat tc.pl 
    #!/usr/bin/perl
    ...
    /egg/drop
    shadow
    $