m8ta
You are not authenticated, login. |
|
{363} | ||
so, I made a script for Jesse K to download multiple files from hardm.ath.cx. eventually I'll have to improve this - automake directories, etc. whatever, it works! #!/usr/bin/perl $narg = $#ARGV + 1; if( $narg ne 1 ){ print "please specify the URL on the command line \n"; }else{ $source = $ARGV[0]; $command = "curl " . $source; print $command . "\n"; $page = `$command`; print $page; while( $page =~ /<a href=([^>]+)>/gs ){ print "found link: " . $1 . "\n"; $link = $1; if( $link =~ /.mp3/ ){ $command = "wget " . $source . $link; print $command . "\n"; `$command`; } } } (as for all the different versions of this file, I used the entry to test & fix embedding \n and \t in the document & escaping them whem passing to mysql. current strategy is to convert the chars to HTML encodings - e.g. \ -> \ ) |