为什么touch命令在perl中不起作用？

Question

Could anyone please point out my error

#!/usr/local/bin/perl
my $i;
for $i in {1..10} 
do 
    system("touch file${i}");
done

I have saved above in file.pl and did perl file.pl and error popping up is

Bareword found where operator expected at tr.pl line 4, near "$i in"
        (Missing operator before in?)
syntax error at tr.pl line 4, near "$i in "

Even on terminal touch file{1..10} doesn't create file1, file2, ...file10 instead it creates file{1..10}.

Thanks in advance .

Answer 1

Not sure how you're teaching yourself Perl, but your syntax for the loop is wrong. It looks like you're confusing shell scripting with Perl programming.

#!/usr/local/bin/perl

# Always add these
use strict;
use warnings;

# Round parens for the "for" list.
# Curly braces to delimit the code block.
for my $i (1..10) {
    system("touch file${i}");
}