Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

Perl question regarding [ ]

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl question regarding [ ]
Prev   Next
# 1  
Old 07-01-2007
Perl question regarding [ ]
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
 
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl question about

Hello everybody, I am new at the forum and a total newbie when it comes to Unix. I am trying to see how I can add the ability to kill a user's processes? I want to add this to my Shel Script Add the code/process into a subroutine. Also, I would like to use an array to store the list... (0 Replies)
Discussion started by: kinelisch
0 Replies

2. Shell Programming and Scripting

Perl Question

Hello all, I have the following line: xxx|xxxx|xxxx|xxx.xx|xxx And i insert the values in an array. I am trying to find out if the field of the array (where field=xxx.xx) has the '.' character. I am using the code below but it doesn't seem to work. if($field=~ /./) { ... (3 Replies)
Discussion started by: chriss_58
3 Replies

3. Shell Programming and Scripting

PERL Question ...

I am reading a file in perl script .. during the debug the $linein value is : linein : +ASM1,sys,||¬ |3Æqúoü;”ט|| from this line I am getting the tmepuser and password from above : ($tmpuser, $pwd) = ($linein =~ /^$server\s*,\s*(+)\s*,\|\|(.+)\|\|/sm); I am getting $tmpuser and... (2 Replies)
Discussion started by: talashil
2 Replies

4. Shell Programming and Scripting

another perl question

I have a question regarding bulding a hash from a file which has below pattern I thought I could write something like this but clearly my syntax is way off $/ = "\n\n"; $" = "\n"; open(FILE, file1) || die; my %keymaster = ( ); while (<FILE>) { my $topinfo =~... (5 Replies)
Discussion started by: hankooknara
5 Replies

5. Shell Programming and Scripting

another perl question

I fail to see how below answer is 1? can someone explain this for me? DB<3> $string = "The cat sat on the mat"; DB<4> $animal = ($string =~ m/The (.*) sat/); DB<5> print $animal; 1 (2 Replies)
Discussion started by: hankooknara
2 Replies

6. Shell Programming and Scripting

another perl question

I copy and paste from the book but this thing is not working. I cannot figure out what is wrong with myline 9.. can someone please tell me # cat ./sort4.pl #!/usr/bin/perl -w use strict; use warnings; my $input = shift; my $output = shift; open(IN, '<', $input) or die... (4 Replies)
Discussion started by: hankooknara
4 Replies

7. Shell Programming and Scripting

PERL question

Hello, pkzipc of a certain zip file yeilds the following in shell PKZIP(R) Version 6.0 FAST! Compression Utility for AIX Copyright 1989-2002 PKWARE Inc. All Rights Reserved. Registered Version PKZIP Reg. U.S. Pat. and Tm. Off. Patent No. 5,051,745 Viewing .ZIP: test.zip Length... (13 Replies)
Discussion started by: jerardfjay
13 Replies

8. Shell Programming and Scripting

perl question

If I use 2 system commands in a script, will one finish before the next one starts? or will it start the first and the second at the same time? i.e. system("ps | grep rminer"); system("ls -al | grep 431"); (1 Reply)
Discussion started by: BG_JrAdmin
1 Replies

9. Shell Programming and Scripting

Perl: tk question

When i run my perl/tk script, a perl window pops up behind the GUI window,, can this be hidden???? Also, can the Icon be changed, the Tk icon in every window??? (1 Reply)
Discussion started by: perleo
1 Replies

10. Shell Programming and Scripting

Question about Perl

Where can i find solid information about programming in Perl? Thank you in advance!!!:) (5 Replies)
Discussion started by: SolidSnake
5 Replies
Login or Register to Ask a Question

LEARN ABOUT CENTOS

pod::pom::view::text

Pod::POM::View::Text(3) 				User Contributed Perl Documentation				   Pod::POM::View::Text(3)

NAME

       Pod::POM::View::Text

DESCRIPTION

       Text view of a Pod Object Model.

METHODS

       "view($self, $type, $item)"
       "view_pod($self, $pod)"
       "view_head1($self, $head1)"
       "view_head2($self, $head2)"
       "view_head3($self, $head3)"
       "view_head4($self, $head4)"
       "view_over($self, $over)"
       "view_item($self, $item)"
       "view_for($self, $for)"
       "view_begin($self, $begin)"
       "view_textblock($self, $textblock)"
       "view_verbatim($self, $verbatim)"
       "view_meta($self, $meta)"
       "view_seq_bold($self, $text)"
	   Returns the text of a "B<>" sequence in 'bold' (i.e. surrounded by asterisks, like *this*).

       "view_seq_italic($self, $text)"
	   Returns the text of a "I<>" sequence in 'italics' (i.e. surrounded by underscores, like _this_).

       "view_seq_code($self, $text)"
       "view_seq_file($self, $text)"
       "view_seq_entity($self, $text)"
       "view_seq_index($self, $text)"
	   Returns an empty string.  Index sequences are suppressed in text view.

       "view_seq_link($self, $text)"

AUTHOR

       Andy Wardley <abw@kfs.org>

COPYRIGHT AND LICENSE

       Copyright (C) 2000 Andy Wardley.  All Rights Reserved.

       This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.16.3							    2010-04-01						   Pod::POM::View::Text(3)