Perl question regarding [ ]

hankooknara · #1 (**permalink**) 07-01-2007

Below program, I do not get why item I am looking for is [6], instead of [5].
When I do $#text, i get the right value for $value1, but when I do [5], i get somsething4, instead of
somsethingxxxxxxxxxxxxxxxxxxx(which is what I am looking for.

when I do [0], I get empty.. why? what did I do wrong? can you please help?

thanks.

#!/usr/bin/perl
my $value1;

while(<>)
{
my $line = $_;
(@text) = split(/\s+/,$line);
if($line =~ /Time/)
{
#$value1 = $text[6];
$value1 = $text[$#text];

Top of the file below
something somsething somsething something4 somethingxxxxxxxxxxxxx

aigles · #2 (**permalink**) 07-01-2007

If the line starts with spaces, the split command gives an empty value for the $text[0].

Code:

#!/usr/bin/perl

while(<>)
{
   my $line = $_;
   chop($line);
   (@text) = split(/\s+/,$line);
   print "Line='$line'\n";
   print "\$#text=$#text\n";
   print "\$text[\$#text]]='$text[$#text]'\n";
   foreach (0..$#text) { print "\$text[$_]='$text[$_]'\n"; }
}

Input file:

Code:

something somsething somsething something4 somethingxxxxxxxxxxxxx
          something somsething somsething something4 somethingxxxxxxxxxxxxx

Output:

Code:

Line='something somsething somsething something4 somethingxxxxxxxxxxxxx'
$#text=4
$text[$#text]]='somethingxxxxxxxxxxxxx'
$text[0]='something'
$text[1]='somsething'
$text[2]='somsething'
$text[3]='something4'
$text[4]='somethingxxxxxxxxxxxxx'
Line='          something somsething somsething something4 somethingxxxxxxxxxxxxx'
$#text=5
$text[$#text]]='somethingxxxxxxxxxxxxx'
$text[0]=''
$text[1]='something'
$text[2]='somsething'
$text[3]='somsething'
$text[4]='something4'
$text[5]='somethingxxxxxxxxxxxxx'

hankooknara · #3 (**permalink**) 07-01-2007

thank you as always~~

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
Perl Question	serm	Shell Programming and Scripting	2	09-28-2006 05:50 AM
perl question	BG_JrAdmin	Shell Programming and Scripting	1	09-09-2005 07:46 PM
Perl Question	Gary Dunn	Shell Programming and Scripting	2	12-03-2004 12:37 PM
PERL question	frank	Shell Programming and Scripting	1	06-18-2002 03:13 AM
Perl question	Jubba	Shell Programming and Scripting	1	04-01-2002 02:24 PM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread:


	Powered by