Hi, I'm learning Perl but I've found some difficulties: Why doesn't this: [code] #!/usr/bin/env perl use warnings; use strict;
while(<>){
if(/[A-Z][^A-Z]+/){
print;
}
}
[/code]
Act like this:
[code]#!/usr/bin/env perl
use warnings;
use strict;
while(<>){
if(/[A-Z][a-z]+/){
print;
}
}[/code]
?
Or why does this little program match? It was supposed to match an empty or
one-lettered string.
[code]
my $test = "test";
if($test =~ /\b\w?\b/){
print $test . "$&\n";
}
[/code]
