Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl : Get Maxdate from the file
Top Forums Shell Programming and Scripting Perl : Get Maxdate from the file Post 302411053 by ahmad.diab on Wednesday 7th of April 2010 12:34:58 PM
Old 04-07-2010
Quote:
Originally Posted by subin_bala
Hi ,

If i am executing this command from my unix prompt it is working fine and giving me the correct result. But it is not working inside my perl script . it is giving error.

#!/bin/perl

use strict;
use pcmif;

my $max;

$max = perl -lanF';' -e 'BEGIN{$max=0}{$max = $F[2] if $F[2]>$max}END{print $max}' internal_baseline_data.txt;

----------------

error : Bad name after lanF' at ./test.pl line 8.


Can you please tell me what went worng here...


Thanks in advance
Code:
$max = `perl -lanF';' -e 'BEGIN{$max=0}{$max = $F[2] if $F[2]>$max}END{print $max}' internal_baseline_data.txt; `

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

PERL:How to convert numeric values txt file to PACKED DECIMAL File?

Is there any way to convert numeric values txt file to PACKED DECIMAL File using PERL. Regards, Alok (1 Reply)
Discussion started by: aloktiwary
1 Replies

2. Shell Programming and Scripting

perl -write values in a file to @array in perl

Hi can anyone suggest me how to write a file containing values,... say 19 20 21 22 .. 40 to an array @array = (19, 20, ... 40) -- Thanks (27 Replies)
Discussion started by: meghana
27 Replies

3. Shell Programming and Scripting

Perl : Process a file in perl

I have a file with following data : Qspace: COLOR: Queue: doColor Qspace: COLOR: Queue order: fifo Qspace: COLOR: Out of order: none Qspace: COLOR: Retries: 5 Qspace: COLOR: Queue: setColor Qspace: COLOR: Queue order: fifo Qspace: COLOR: Out of order: none Qspace: COLOR: Retries: 5... (4 Replies)
Discussion started by: deo_kaustubh
4 Replies

4. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

5. Shell Programming and Scripting

shell or perl script needed for ldif file to text file conversion

This is the ldf file dn: sdcsmsisdn=1000000049,sdcsDatabase=subscriberCache,dc=example,dc=com objectClass: sdcsSubscriber objectClass: top postalCode: 29600 sdcsServiceLevel: 10 sdcsCustomerType: 14 givenName: Adelia sdcsBlackListAll: FALSE sdcsOwnerType: T-Mobile sn: Actionteam... (1 Reply)
Discussion started by: LinuxFriend
1 Replies

6. Programming

Perl- How to catch the file in perl code?

Hi, plz see the below code , i have catch the file "Orders.20110714.out "file as a Orders*.out. but it giving me an error .it does not open the file. if the same thing i have done by code code-> ls Orders*.out then it gives me the output Orders.20110714.out i am trying apply the... (1 Reply)
Discussion started by: pspriyanka
1 Replies

7. Shell Programming and Scripting

Need to search a particular String form a file a write to another file using perl script

I have file which contains a huge amount of data. I need to search the pattern Message id. When that pattern is matched I need to get abcdeff0-1g6g-91g3-1z2z-2mm605m90000 to another file. Kindly provide your input. File is like below Jan 11 04:05:10 linux100 |NOTICE... (2 Replies)
Discussion started by: Raysf
2 Replies

8. UNIX for Advanced & Expert Users

Convert CSV file to nested XML file using UNIX/PERL?

we have a CSV which i need to convert to XML using Perl or Unix shell scripting. I was able to build this XML in oracle database. However, SQL/XML query is running for long time. Hence, I'm considering to write a Perl or shell script to generate this XML file. Basically need to build this XML... (3 Replies)
Discussion started by: laknar
3 Replies

9. Shell Programming and Scripting

Perl script to read string from file#1 and find/replace in file#2

Hello Forum. I have a file called abc.sed with the following commands; s/1/one/g s/2/two/g ... I also have a second file called abc.dat and would like to substitute all occurrences of "1 with one", "2 with two", etc and create a new file called abc_new.dat sed -f abc.sed abc.dat >... (10 Replies)
Discussion started by: pchang
10 Replies

10. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies

LEARN ABOUT DEBIAN

vend::ship::postal

Vend::Ship::Postal(3pm) 				User Contributed Perl Documentation				   Vend::Ship::Postal(3pm)

NAME

       Vend::Ship::Postal -- Calculate US Postal service international rates

SYNOPSIS

	(in catalog.cfg)

	   Database   usps	       ship/usps.txt		  TAB
	   Database   air_pp	       ship/air_pp.txt		  TAB
	   Database   surf_pp	       ship/surf_pp.txt 	  TAB

	(in shipping.asc)

	   air_pp: US Postal Air Parcel
	       crit	       weight
	       min	       0
	       max	       0
	       cost	       e No shipping needed!
	       at_least        4
	       adder	       1
	       aggregate       70
	       table	       air_pp

	       min	       0
	       max	       1000
	       cost	       s Postal

	       min	       70
	       max	       9999999
	       cost	       e Too heavy for Air Parcel

	   surf_pp:    US Postal Surface Parcel
	       crit	       weight
	       min	       0
	       max	       0
	       cost	       e No shipping needed!
	       at_least        4
	       adder	       1
	       aggregate       70
	       table	       surf_pp

	       min	       0
	       max	       1000
	       cost	       s Postal

	       min	       70
	       max	       9999999
	       cost	       e Too heavy for Postal Parcel

DESCRIPTION

       Looks up a service zone by country in the "usps" table, then looks in the appropriate rate table for a price by that zone.

       Can aggregate shipments greater than 70 pounds by assuming you will ship multiple 70-pound packages (plus one package with the remainder).

perl v5.14.2							    2010-03-25						   Vend::Ship::Postal(3pm)
All times are GMT -4. The time now is 10:35 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy