comma operator has a higher precedence than 'or' operator,
so when require fails, eval returns undef and perl will
continue to set the status then return 0,
so your rewritten code will work exactly the same as the original code.
On Wed, Apr 16, 2008 at 9:02 PM, Jennifer G. <[EMAIL PROTECTED]>
wro
#!/usr/bin/perl -w
my (%hosts, %servs);
while () {
chomp;
my ($host, $server) = (split /,\s*/)[0,4];
$hosts{$host}++ if ($host);
$servs{$server}++ if ($server);
}
my @dup_hosts = map { substr $_,0,5,''; $_ }
grep { $hosts{$_} > 1 } keys %hosts;
my @dup_servs = map { substr $_,
my $input =q(C:\Windows\%Person%\%Class%);
my @vars = $input =~ /%([^%]+)%/g;
local $, = $/;
print @vars;
On Tue, Apr 15, 2008 at 10:20 PM, Ley, Chung <[EMAIL PROTECTED]> wrote:
> Hi,
>
>
>
> I have a program that will take in a string that will resolve to a path
> where the output is going
nge-Operators
>
>
> --
> Chas. Owens
> wonkden.net
> The most important skill a programmer can have is the ability to read.
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
--
Jialin Li
832-618-3598
Chas,
Thank you for your remind. It is helpful.
Best,
Jialin
On Wed, Apr 9, 2008 at 3:51 PM, Chas. Owens <[EMAIL PROTECTED]> wrote:
> On Wed, Apr 9, 2008 at 4:31 PM, Jialin Li <[EMAIL PROTECTED]> wrote:
> > substr($string,0,2) will give you the first two digits
> >
>
> Thanks,
> Michael
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
--
Jialin Li
832-618-3598
