«

#!/usr/bin/perl
use File::Find;

find(\&d, @ARGV);
sub d{
my $file=$File::Find::name;
$file =~ tr/A-Z/a-z/g;
print $file, "\n";
}

The error message is:
Bareword found where operator expected at re.sh line 7, near
"tr/A-Z/a-z/g"
syntax error at re.sh line 7, near "tr/A-Z/a-z/g"
Execution of re.sh aborted due to compilation errors.
What's wrong with this program?
Thanks a lot.

>>>>> "L" == Leon <> writes:

L> #!/usr/bin/perl
L> use File::Find;

L> find(\&d, @ARGV);
L> sub d{
L> my $file=$File::Find::name;
L> $file =~ tr/A-Z/a-z/g;
^
L> print $file, "\n";
L> }

L> The error message is:
L> Bareword found where operator expected at re.sh line 7, near
L> "tr/A-Z/a-z/g"
L> syntax error at re.sh line 7, near "tr/A-Z/a-z/g"

tr IS NOT a regex nor is it s///. it has its own modifiers.

perldoc -f tr

uri

--
Uri Guttman ------ -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org

Leon wrote:

> #!/usr/bin/perl
> use File::Find;
>
> find(\&d, @ARGV);
> sub d{
> my $file=$File::Find::name;
> $file =~ tr/A-Z/a-z/g;
> print $file, "\n";
> }
>
read perldoc perlop again, and then take out the not existing g modifier

regards,
tom