Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -CSDA 

...
        `cat /var/log/apache2/access.log.1`;

print map { "$_\n" } sort keys %h;
  2. or download this
    #!/usr/bin/perl -CSDA 

...
        map { /([^\/]*\.js)/ && $1 }
        `cat /var/log/apache2/access.log.1` 
}};
  3. or download this
    
#!/usr/bin/perl -CSDA 
...

print map { "$_\n" } sort keys %h;