Sponsored Content
Top Forums Shell Programming and Scripting PERL, extract value between double quotes Post 36865 by cbkihong on Friday 6th of June 2003 12:24:53 AM
Old 06-06-2003
This is a crude example that may do what you want (scriptname.pl)

Code:
#!/usr/bin/perl 

while (<>) {
	if (m/^"([^"]*)",/) {
		$var = sprintf("%d", $1);
		# Replace by some processing here instead of print
		print $var, "\n";
	}
}

Say if your data are in the file "file.dat", type

cat file.dat | perl scriptname.pl

should extract the first field for you and assign to $var, eliminating the leading zeros. You may also want to use open/close to read the data file directly as RTM demonstrated.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Displaying double quotes using Perl

Hi Guys, I'm a Perl newbie and was wondering if there's a way of displaying double quotes within double quotes. I'm try to print the contents of the variable to a file by using the system function. Here is an example of my code: #============================== $website = <STDIN>;... (2 Replies)
Discussion started by: kbdesouza
2 Replies

2. Shell Programming and Scripting

problems with double quotes in PERL

I have a cgi script I run through apache2 and I need to have a line that contains double quotes within double quotes. Here's what I need PERL to pass to rrdtool: HRULE:30#BBBB00:"30.0 constant":dashesIt's a little more complicated since I also have variables in the statement which requires... (13 Replies)
Discussion started by: audiophile
13 Replies

3. Shell Programming and Scripting

Perl echo with double quotes

I need to echo a string that has double quotes in a Perl script. #!/usr/bin/env perl `echo Rule123 -comment \"blah blah\" >> $filename` I'd like to get below appended to $filename: Rule 123 -comment "blah blah" But instead, the double quotes are lost: Rule 123 -comment blah bah ... (1 Reply)
Discussion started by: slchin
1 Replies

4. Shell Programming and Scripting

How to substitute the value with in double quotes in perl?

Hi, I have string like this: $str=' DNA OR ("rna AND binding AND protein")'; I just wanted to substitute AND with a blank. How can i do that? I want the output like this: $string= DNA OR ("rna binding protein") (3 Replies)
Discussion started by: vanitham
3 Replies

5. Shell Programming and Scripting

Preserve commas inside double quotes (perl)

Hi, I have an input file like this $ cat infile hi,i,"am , sam", y hello ,good, morning abcd, " ef, gh " ,ij no, "good,morning", yes, "good , afternoon" from this file I have to split the fields on basis of comma"," however, I the data present inside double qoutes should be treated as... (3 Replies)
Discussion started by: sam05121988
3 Replies

6. Shell Programming and Scripting

Extract data based on 2nd colume having double quotes

i want extract where the 2nd column having "3" or "7". Based on the forums tried like this but it is not working awk -F"," '$2=3;$2=7 {print}' filename Source "1","2","3","4" "1","3","3","4" "1","7","3","4" "1","8","3","4" "1","2","3","4" "1","2","3","4" Output : ... (5 Replies)
Discussion started by: onesuri
5 Replies

7. Shell Programming and Scripting

Issue with Single Quotes and Double Quotes for prompt PS1

Hi, Trying to change the prompt. I have the following code. export PS1=' <${USER}@`hostname -s`>$ ' The hostname is not displayed <abc@`hostname -s`>$ uname -a AIX xyz 1 6 00F736154C00 <adcwl4h@`hostname -s`>$ If I use double quotes, then the hostname is printed properly but... (3 Replies)
Discussion started by: bobbygsk
3 Replies

8. Shell Programming and Scripting

Skip the delimiter with in double quotes and count the number of delimiters during data extract

Hi All, I'm stuck-up in finding a way to skip the delimiter which come within double quotes using awk or any other better option. can someone please help me out. Below are the details: Delimited: | Sample data: 742433154|"SYN|THESIS MED CHEM PTY.... (2 Replies)
Discussion started by: BrahmaNaiduA
2 Replies

9. Shell Programming and Scripting

Replace Double quotes within double quotes in a column with space while loading a CSV file

Hi All, I'm unable to load the data using sql loader where there are double quotes within the double quotes As these are optionally enclosed by double quotes. Sample Data : "221100",138.00,"D","0019/1477","44012075","49938","49938/15043000","Television - 22" Refurbished - Airwave","Supply... (6 Replies)
Discussion started by: mlavanya
6 Replies

10. Shell Programming and Scripting

Extract multiple columns base on double quotes as delimiter

Hi All, I have my data like below "1","abc,db","hac,aron","4","5" Now I need to extract 1,2,4th columns Output should be like "1",abc,db","4" Am trying to use cut command but not able to get the results. Thanks in advance. (4 Replies)
Discussion started by: weknowd
4 Replies
TRIG(3) 						User Contributed Perl Documentation						   TRIG(3)

NAME
PDL::GSLSF::TRIG - PDL interface to GSL Special Functions DESCRIPTION
This is an interface to the Special Function package present in the GNU Scientific Library. SYNOPSIS
Functions FUNCTIONS
gsl_sf_sin Signature: (double x(); double [o]y(); double [o]e()) Sin(x) with GSL semantics. gsl_sf_cos Signature: (double x(); double [o]y(); double [o]e()) Cos(x) with GSL semantics. gsl_sf_hypot Signature: (double x(); double xx(); double [o]y(); double [o]e()) Hypot(x,xx) with GSL semantics. gsl_sf_complex_sin Signature: (double zr(); double zi(); double [o]x(); double [o]y(); double [o]xe(); double [o]ye()) Sin(z) for complex z gsl_sf_complex_cos Signature: (double zr(); double zi(); double [o]x(); double [o]y(); double [o]xe(); double [o]ye()) Cos(z) for complex z gsl_sf_complex_logsin Signature: (double zr(); double zi(); double [o]x(); double [o]y(); double [o]xe(); double [o]ye()) Log(Sin(z)) for complex z gsl_sf_lnsinh Signature: (double x(); double [o]y(); double [o]e()) Log(Sinh(x)) with GSL semantics. gsl_sf_lncosh Signature: (double x(); double [o]y(); double [o]e()) Log(Cos(x)) with GSL semantics. gsl_sf_polar_to_rect Signature: (double r(); double t(); double [o]x(); double [o]y(); double [o]xe(); double [o]ye()) Convert polar to rectlinear coordinates. gsl_sf_rect_to_polar Signature: (double x(); double y(); double [o]r(); double [o]t(); double [o]re(); double [o]te()) Convert rectlinear to polar coordinates. return argument in range [-pi, pi]. gsl_sf_angle_restrict_symm Signature: (double [o]y()) Force an angle to lie in the range (-pi,pi]. gsl_sf_angle_restrict_pos Signature: (double [o]y()) Force an angle to lie in the range [0,2 pi). gsl_sf_sin_err Signature: (double x(); double dx(); double [o]y(); double [o]e()) Sin(x) for quantity with an associated error. gsl_sf_cos_err Signature: (double x(); double dx(); double [o]y(); double [o]e()) Cos(x) for quantity with an associated error. AUTHOR
This file copyright (C) 1999 Christian Pellegrin <chri@infis.univ.trieste.it> All rights reserved. There is no warranty. You are allowed to redistribute this software / documentation under certain conditions. For details, see the file COPYING in the PDL distribution. If this file is separated from the PDL distribution, the copyright notice should be included in the file. The GSL SF modules were written by G. Jungman. perl v5.8.0 2003-01-29 TRIG(3)
All times are GMT -4. The time now is 12:49 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy