Jason Cooper ([EMAIL PROTECTED]) scribbled: > Jonathan Nichols ([EMAIL PROTECTED]) scribbled: > > (Note: I suck at Perl.) > > > > I have a script. it's a simple script. > > > > #!/usr/bin/perl > > $file = "foo.txt"; > > system"wget http://clutter.pbp.net/~jnichols/foo.txt"; || die "Couldn't > > get $file"; > > > > Currently "foo.txt" doesn't exist. It'll return a 404. It doesn't die > > with the error message above. Basically, I need wget to die and return > > the specified error message if the result is *anything* but successful. > > If wget gets the file, ok. If it fails to get the file for any reason, > > barf out. > > This is a trimmed down version of a sub I use for system calls: > > ######################################### > $command = 'wget http://clutter.pbp.net/~jnichols/foo.txt'; > system("$command") == 0 > or die "system $command failed: $?"; > if ($? == -1) { > print "failed to execute: $!\n"; > } > elsif ($? & 127) { > printf "child died with signal %d, %s coredump\n", > ($? & 127), ($? & 128) ? 'with' : 'without'; > } > ######################################### > > It should work for your situation. I think I got it out of one of the > O'Reilly books.
eh, on second thought, it'll only work if wget kicks back an error. I would follow the path mentioned by AJK, look into http modules. Unfortunately, I've never used them, so I'm of little help there. Cooper. -- gentoo-user@gentoo.org mailing list
