Sponsored Content
Top Forums Shell Programming and Scripting Perl if field begins with....... Post 302358105 by Donkey25 on Thursday 1st of October 2009 11:18:24 AM
Old 10-01-2009
Perl if field begins with.......

Hi,

This must be simple but I can't get it to work. I have the follow code to insert the contents of a file into an array and then I want to print the value of a container where all of the records in another container within the array start with 33 (that's not all I want to do but it is all I want to do right now).

Code:
$file_name="/home/file1";
open(DATA, $file_name) || die ("Could not open file!");
@deliver_data=<DATA>;
close(DATA);

foreach $line (@deliver_data)
{
chop($line);
($id,$day,$ref,$originator,$destination,$type,$code)=split(/,/,$line);
}

if $destination /^33/;
{
print "$code";
}

I keep getting this error:

Code:
syntax error at ./andrews_perl_foreign_calc.pl line 27, near "if $destination "
Execution of ./andrews_perl_foreign_calc.pl aborted due to compilation errors.

Many thanks!
 

7 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

remane a file that begins with $$$

I have a file named: $$$.p0001.ps how can I rename this file? I'm using the C shell. -westcoldspring (3 Replies)
Discussion started by: westcoldspring
3 Replies

2. Shell Programming and Scripting

[awk]: Row begins by random number and field 10 is greater than 10.00%

Hello! I wish to extract the pid where CPU is above 10% last pid: 22621; load averages: 4.71, 5.04, 5.13 15:08:34 221 processes: 212 sleeping, 2 running, 1 stopped, 6 on cpu CPU states: %... (3 Replies)
Discussion started by: Lomic
3 Replies

3. UNIX for Dummies Questions & Answers

how to tar directories that begins with 'sample_ZZZ'????

Hi, I have a bunch of images (8k) in several directories. I want to tar these directories up and unzip them to development and production with the same path. Example: /about/images/sample_01 /about/images/sample_02 /about/images/sample_03 /about/images/lorem_ipsum... (4 Replies)
Discussion started by: andylee80
4 Replies

4. Shell Programming and Scripting

field separator in Perl

is there a similar parameter you can set in perl like FS in awk? I think I've read all the tutorials on the subject, but cannot get this map split and so on thing to work. I need to sort a file by columns, eg. first, third, fifth... The script I need to add this column sorting is this: use... (38 Replies)
Discussion started by: ahsog
38 Replies

5. Shell Programming and Scripting

Printing the column that begins with certain words/numbers

Hi guys, I have got a file which doesn't have the same number of columns in each line. I would like to print the second column and the one that begins with 33= and has some numbers after '33=' Can you please help me asap? Cheers (7 Replies)
Discussion started by: alexandra_ola
7 Replies

6. Shell Programming and Scripting

Displaying the first field if the second field matches the pattern using Perl

Hi, I am trying with the below Perl command to print the first field when the second field matches the given pattern: perl -lane 'open F, "< myfile"; for $i (<F>) {chomp $i; if ($F =~ /patt$/) {my $f = (split(" ", $i)); print "$f";}} close F' dummy_file I know I can achieve the same with the... (7 Replies)
Discussion started by: royalibrahim
7 Replies

7. UNIX for Beginners Questions & Answers

Find number begins with 24

Hi Team, i need to list only those number from the input file which begin with 24 input file is 2412 2413 2456 2134 2134 2244 2526 expected output i want is 2412 2413 2456 (6 Replies)
Discussion started by: scriptor
6 Replies
VIEWPERL(1)							   User Commands						       VIEWPERL(1)

NAME
viewperl - quickly view syntax highlighted Perl code SYNOPSIS
viewperl [OPTION]... FILE... DESCRIPTION
View a Perl source code file, syntax highlighted. -c, --code=CODE view CODE, syntax highlighted -l, --lines display line numbers -L, --no-lines supress display of line numbers (default) -m, --module=FILE consider FILE the name of a module, not a file name -n, --name display the name of each file (default) -N, --no-name supress display of file names (implied by --no-reset) -p, --pod display inline POD documentation (default) -P, --no-pod hide POD documentation (line numbers still increment) -r, --reset reset formatting and line numbers each file (default) -R, --no-reset supress resetting of formatting and line numbers -s, --shift=WIDTH set tab width (default is 4) -t, --tabs translate tabs into spaces (default) -T, --no-tabs supress translating of tabs into spaces --help display this help and exit Note that module names should be given as they would appear after a Perl `use' or `require' statement. `Getopt::Long', for example. Each string given using -c is considered a different file, so line number and formatting resets will apply. View a Perl source code file, syntax highlighted. -c, --code=CODE view CODE, syntax highlighted -l, --lines display line numbers -L, --no-lines supress display of line numbers (default) -m, --module=FILE consider FILE the name of a module, not a file name -n, --name display the name of each file (default) -N, --no-name supress display of file names (implied by --no-reset) -p, --pod display inline POD documentation (default) -P, --no-pod hide POD documentation (line numbers still increment) -r, --reset reset formatting and line numbers each file (default) -R, --no-reset supress resetting of formatting and line numbers -s, --shift=WIDTH set tab width (default is 4) -t, --tabs translate tabs into spaces (default) -T, --no-tabs supress translating of tabs into spaces --help display this help and exit Note that module names should be given as they would appear after a Perl `use' or `require' statement. `Getopt::Long', for example. Each string given using -c is considered a different file, so line number and formatting resets will apply. viewperl August 2007 VIEWPERL(1)
All times are GMT -4. The time now is 11:36 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy