Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: PERL question
Top Forums Shell Programming and Scripting PERL question Post 86339 by jerardfjay on Thursday 13th of October 2005 08:41:53 AM
Old 10-13-2005
Use of uninitialized value in pattern match (m//)
Hi,

Back again. I got the code to work. Thanks cbkihong.
Here is the current snippet of the code.

Code:
$out = `pkzipc $CurDir$WorkDir\.zip`;
$start = 0;
$buf = '';
$Count = 0;
open FILE, ">>$CurDir$WorkDir\.ctr" or print ("Cannot open file ${WorkDir}\.ctr for writing $! \n");
foreach $line (split /\n/, $out)
{
      $Newline = '';
      ($Fld1,$Fld2,$Fld3,$Fld4,$Fld5,$Fld6,$Fld7,$Fld8,$Fld9) = split(' ', $line, 9999);
      if ($Fld1 =~ /^\s*Length/) { $start = 1; }
      if ($start)
         {
            if ($Fld1 eq '------') {
               $Count = $Count + 1;
            }
            if ($Count eq 2) {
               $Newline=sprintf "%6s %6s %5s %5s", $Fld1 , $Fld2 , $Fld3 , $Fld4;
               }
               else {
                  $Newline=sprintf "%6s %6s %5s %-200s", $Fld1 , $Fld3 , $Fld4 , $Fld9;
                  }
            $buf .= ('COMMENT          ; ' . $Newline . "\n");
          }
       }
       print FILE $buf;
       close FILE;

Here is the partial output that I get of the .ctr file

Code:
COMMENT          ; Text from this message will appear in the control file as instructions to the re
COMMENT          ; Length   Size Ratio Name

COMMENT          ; ------   ---- ----- ----

COMMENT          ; 1002KB  226KB 77.5% DIR1/M0511514944.exp

COMMENT          ;  474KB   91KB 80.8% DIR2/47105SNAAA120-C1__LEVERASSYHANDBRAKE__LD521117.exp

COMMENT          ;  476KB   91KB 80.9% DIR2/47105SNAAA830-C1__LEVERASSYHANDBRAKE__LD521117.exp

COMMENT          ;  113KB   92KB 18.5% OTHER_FILES/44732S0K_A003____C4426278.exp

COMMENT          ; ------ ------ -----  ----
COMMENT          ; 2065KB  500KB 75.8%     4

However I do get the following messages during execution.

Code:
Use of uninitialized value in pattern match (m//) at test.pl line 415, <IN> line 2.
Use of uninitialized value in pattern match (m//) at test.pl line 415, <IN> line 2.

Line 415 happens to be

Code:
if ($Fld1 =~ /^\s*Length/) { $start = 1; }

Any ideas as to how to overcome this message. Thanks. Jerardfjay
 

10 More Discussions You Might Find Interesting

1. 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

2. 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

3. 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

4. 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

5. Shell Programming and Scripting

Perl question regarding [ ]

Below program, I do not get why item I am looking for is , instead of . When I do $#text, i get the right value for $value1, but when I do , i get somsething4, instead of somsethingxxxxxxxxxxxxxxxxxxx(which is what I am looking for. when I do , I get empty.. why? what did I do wrong? can you... (2 Replies)
Discussion started by: hankooknara
2 Replies

6. 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

7. 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

8. 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

9. 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

10. 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

LEARN ABOUT DEBIAN

igawk

IGAWK(1)							 Utility Commands							  IGAWK(1)

NAME

       igawk - gawk with include files

SYNOPSIS

       igawk [ all gawk options ] -f program-file [ -- ] file ...
       igawk [ all gawk options ] [ -- ] program-text file ...

DESCRIPTION

       Igawk is a simple shell script that adds the ability to have ``include files'' to gawk(1).

       AWK programs for igawk are the same as for gawk, except that, in addition, you may have lines like

	      @include getopt.awk

       in your program to include the file getopt.awk from either the current directory or one of the other directories in the search path.

OPTIONS

       See gawk(1) for a full description of the AWK language and the options that gawk supports.

EXAMPLES

       cat << EOF > test.awk
       @include getopt.awk

       BEGIN {
	    while (getopt(ARGC, ARGV, "am:q") != -1)
		 ...
       }
       EOF

       igawk -f test.awk

SEE ALSO

       gawk(1)

       Effective AWK Programming, Edition 1.0, published by the Free Software Foundation, 1995.

AUTHOR

       Arnold Robbins (arnold@skeeve.com).

Free Software Foundation					    Nov 3 1999								  IGAWK(1)
All times are GMT -4. The time now is 02:14 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy