Hi,

    It is actually very enlightening to read all the post
on this list. Most of the stuff actually goes over my head as
I have no need/knowledge of CGI or dbase. Just some text processing.

I am new to Programming/Perl (chapter 5 "Learning Perl").
I also read a little about 'system() & exec().

This is my first actual 'useful' Perl script!!
I had written this as a Bash script then converted it to Perl.

--code--

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

my ($A, @B, @C, $D);

$A = 'http://abc.com/texts/files/getthisfile_';

# For files that are numbered by 01.txt
# Also can append a '0' to $A  & still use @C
@B = qw { 01 02 03 04 05 06 07 08 09 10 };

# For files that are numbered by 1.txt
@C = (1..10);

$D = '.txt';

foreach my $i (@C) {
    system 'wget', "${A}${i}${D}"; # I know wget can read from a file.
#   say "${A}${i}${D}";    # say "$A$i$D"; # Which is correct? both work!
}

--code--

Is there a better way to write this without modules?
OR is it just too simple & just fine written this way?

Reply via email to