HACKER Nora wrote:
Hello list,
Hello,
Could someone please explain why this test script:
my @arr1 = qw(one two three);
my @arr2 = qw(1 2 3);
foreach my $arr1 ( @arr1 ) {
print "Arr1: $arr1\n";
foreach my $arr2 ( @arr2 ) {
print "Arr2: $arr2\n";
On Mon, Sep 27, 2010 at 9:19 AM, HACKER Nora wrote:
> Hello list,
>
> Could someone please explain why this test script:
>
> my @arr1 = qw(one two three);
> my @arr2 = qw(1 2 3);
>
> foreach my $arr1 ( @arr1 ) {
>print "Arr1: $arr1\n";
>foreach my $arr2 ( @arr2 ) {
>
Hi Nora,
On Monday 27 September 2010 09:19:46 HACKER Nora wrote:
> Hello list,
>
> Could someone please explain why this test script:
>
> my @arr1 = qw(one two three);
> my @arr2 = qw(1 2 3);
>
> foreach my $arr1 ( @arr1 ) {
> print "Arr1: $arr1\n";
> foreach my $arr2 ( @arr2 )
Andrej Kastrin wrote:
> John W. Krahn wrote:
>
>> Andrej Kastrin wrote:
>>>
>>> I want to count words in the following file:
>>> --
>>> ID- some number
>>> TI- some text BB
>>> AB- some text A BB
>>> AU- some text
>>>
>>> ID- some number
>>> TI- some GGG text
>>> AB- s
John W. Krahn wrote:
Andrej Kastrin wrote:
Hello dears,
Hello,
I want to count words in the following file:
--
ID- some number
TI- some text BB
AB- some text A BB
AU- some text
ID- some number
TI- some GGG text
AB- some text GGG
AU- some text
ID- som
Andrej Kastrin wrote:
> Hello dears,
Hello,
> I want to count words in the following file:
> --
> ID- some number
> TI- some text BB
> AB- some text A BB
> AU- some text
>
> ID- some number
> TI- some GGG text
> AB- some text GGG
> AU- some text
>
> ID- some number
>
please try this one:
#tested in linux
#!/usr/bin/perl -w
use strict;
my @names = qw( fred barney betty wilma dino );
print "Enter some numbers 1 to 5, one per line, then press ctrl D:\n";
chomp (my @numbers = );
foreach (@numbers){
if ($_ < 6){
print "$names[$_ - 1]\n";
}else{
Hakim Singhji wrote:
Hi All,
Hello,
This is my first post at beginners. I am working with Learning Perl
(Llama!) and I like to tweak some of the problems and create more
creative solutions to some things. I cannot figure out why this is not
working. Can anyone point out an error in my code.
Thank you Connie for helping me on this, it was fixed
by below comment you made :)))
>> SOA: while ()
>> {
>> chomp;
>
>You don't need to chomp it, or you don't need $/ at
>last of the next line.
Priss
__
Do You Yahoo!?
Everything you'll
>
> Wonder if someone could help me, I am trying to write
> a script to pulls out all the machine names from a
> revese DNS file, some how, my script will only print
> out the machine names with 1.x.x.in-addr.arpa
>
> $nslookup = '/usr/local/bin/nslookup';
> $dig = '/usr/local/bin/dig';
>
10 matches
Mail list logo
