Hi, so you want to get a file, with xx month in your program you have this print OUTFILE "http://basic.url/dir/file03,$month,$day,.ext,\n";; just don't put the commas. print OUTFILE "http://basic.url/dir/file03$month$day.ext,\n";; or if you want a more proper way or cleaner way you do $time = $month.$day; print OUTFILE "http://basic.url/dir/file03$time.ext,\n";;
"Cy Kurtz" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > I hope it's an easy one for you. It's not quite easy enough for me. > > I want to harvest some files from a website. The files are in this > format: > > fooYYMMDD.ext, as in foo030901.ext for September 1st, 2003. > > To wget the first nine months of this daily file, I need a file that > looks like this: > > http://basic.url/dir/foo030101.ext > http://basic.url/dir/foo030102.ext > http://basic.url/dir/foo030103.ext > . > . > http://basic.url/dir/foo030901.ext > > I'm too lazy to type all of this, so I'm trying to use this little > script to generate the file for me. It keeps tripping over the last > close bracket. Can you tell me what I'm doing wrong here? > > Thanks, > > Cy Kurtz > > Here's my script: > > #!/usr/bin/env perl > # > open OUTFILE, ">output.txt" or die "Can't open output.txt: $!"; > while($month < 9) > { > while($day < 31) > { > print OUTFILE "http://basic.url/dir/file03,$month,$day,.ext,\n";; > continue > $day++; > } > continue > $month++; > } > > > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
