
23-06-2007, 18:33
|
 |
|
|
חבר מתאריך: 04.08.02
הודעות: 4,468
|
|
תראה, הביטויים שאתה כותב הם תקינים. אני לא יכול למצוא בעיה במשהו שאין 
כמו שאמרתי לך מקודם, תפרסם קצת קוד, לא ביטויים.
קוד:
scripter@cguru ~ $ cat test.pl && perl test.pl
#!/usr/bin/perl
use warnings;
use strict;
my @strings = qw/One one Two two Three three Four four 4sure 9933/;
my $element;
for $element (@strings ) {
if( $element =~ m/^[^a-z]/ ) {
print "$element\n";
}
}
One
Two
Three
Four
4sure
9933
scripter@cguru ~ $
_____________________________________
C pogrammers never die. They are just cast into void.
|