04-17-2011
In essence, this code splits each line into @F array, using double quote character as separator. This way everything that was inside double quotes is now stored in @F elements with odd indexes. Analogically everything that was outside of double quotes is now stored in elements with even indexes. The for loop goes through @F array elements that have even index (meaning those containing strings outside of double quotes), and replaces spaces in them with tabs. Odd indexed elements remain intact. After that join function joins all the elements back together using double quote character as "a glue", which is then printed to the screen.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi ,
Can anybody explain how this perl one liner works..
It is to test whether the number is prime or not
perl -le 'print "PRIME" if (1 x shift) !~ /^(11+)\1+$/' 19
Thanks in advance
Shihab (2 Replies)
Discussion started by: shihabvk
2 Replies
2. Shell Programming and Scripting
Thanks for giving your time and effort to answer questions and helping newbies like me understand awk.
I have a huge file, millions of lines, so perl takes quite a bit of time, I'd like to convert these perl one liners to awk.
Basically I'd like all lines with ISA sandwiched between... (9 Replies)
Discussion started by: verge
9 Replies
3. Shell Programming and Scripting
Hi, I'm writing a ksh script and trying to use an awk / sed / or perl one-liner to remove the last 4 characters of a line in a file if it begins with a period.
Here is the contents of the file... the column in which I want to remove the last 4 characters is the last column. ($6 in awk). I've... (10 Replies)
Discussion started by: right_coaster
10 Replies
4. Shell Programming and Scripting
can someone help me translate the following command, from:
/usr/bin/awk "/^$TOFDAYM $TOFDAYD /,0" $LOGFILE
to something like
perl -e .....
basically, i want to use perl to do awk functions within a shell script. i want to do the above awk, using perl.
any suggestions? (9 Replies)
Discussion started by: SkySmart
9 Replies
5. Shell Programming and Scripting
hello,
I want to replace awk with a perl one liner in unix.
i use in awk REGEX and FS ( field separator) because
awk syntaxes in different unix os versions have not the same behaviour.
Awk, Nawk and GNU Awk Cheat Sheet - good coders code, great reuse
i have a file named "file" and want... (5 Replies)
Discussion started by: bora99
5 Replies
6. UNIX for Dummies Questions & Answers
Not quite a unix question but problem in a perl command. Taking a chance if someone knows about the error
cat 1
a b c d
perl -p -e 's/a/b/g' 1
b b c d
What is the problem here??
perl -p -i -e 's/a/b/g' 1
Can't remove 1: Text file busy, skipping file. (2 Replies)
Discussion started by: analyst
2 Replies
7. Shell Programming and Scripting
Hello experts,
I'm stuck with this script for three days now. Here's what i need.
I need to split a large delimited (,) file into 2 files based on the value present in the last field.
Samp: Something.csv
bca,adc,asdf,123,12C
bca,adc,asdf,123,13C
def,adc,asdf,123,12A
I need this split... (6 Replies)
Discussion started by: shell_boy23
6 Replies
8. Shell Programming and Scripting
Hi all,
I need a Perl one liner which prints a newline into a .txt file, only where the line starts with "/mediawiki-1.19.0/". It should add the newline to the line before.
My problem is, when I try to realize this (with my little knowledge :rolleyes: ) i come to the point where the // are... (4 Replies)
Discussion started by: Mr.Smith
4 Replies
9. Shell Programming and Scripting
hi,
I am using PERL one liner for oracle database connection as :
$PERL -e "use DBI; DBI->connect(qw(DBI:Oracle:SID user passwd));"
is there a way to append select statement to this connection ? i.e. DB connection and select stmt in one line ?
how to do sysdba connection using one lines... (1 Reply)
Discussion started by: talashil
1 Replies
10. Shell Programming and Scripting
Greetings fellow scripters.
I find myself editing multiple files, sometimes with the same bits of information. My bash script, a changelog, and a plist file (OS X). Once I realized this, I thought why not script part of this process (and so it begins). In any case, I've solved several of the... (1 Reply)
Discussion started by: reid
1 Replies
LEARN ABOUT DEBIAN
dlar2v
dlar2v.f(3) LAPACK dlar2v.f(3)
NAME
dlar2v.f -
SYNOPSIS
Functions/Subroutines
subroutine dlar2v (N, X, Y, Z, INCX, C, S, INCC)
DLAR2V
Function/Subroutine Documentation
subroutine dlar2v (integerN, double precision, dimension( * )X, double precision, dimension( * )Y, double precision, dimension( * )Z,
integerINCX, double precision, dimension( * )C, double precision, dimension( * )S, integerINCC)
DLAR2V
Purpose:
DLAR2V applies a vector of real plane rotations from both sides to
a sequence of 2-by-2 real symmetric matrices, defined by the elements
of the vectors x, y and z. For i = 1,2,...,n
( x(i) z(i) ) := ( c(i) s(i) ) ( x(i) z(i) ) ( c(i) -s(i) )
( z(i) y(i) ) ( -s(i) c(i) ) ( z(i) y(i) ) ( s(i) c(i) )
Parameters:
N
N is INTEGER
The number of plane rotations to be applied.
X
X is DOUBLE PRECISION array,
dimension (1+(N-1)*INCX)
The vector x.
Y
Y is DOUBLE PRECISION array,
dimension (1+(N-1)*INCX)
The vector y.
Z
Z is DOUBLE PRECISION array,
dimension (1+(N-1)*INCX)
The vector z.
INCX
INCX is INTEGER
The increment between elements of X, Y and Z. INCX > 0.
C
C is DOUBLE PRECISION array, dimension (1+(N-1)*INCC)
The cosines of the plane rotations.
S
S is DOUBLE PRECISION array, dimension (1+(N-1)*INCC)
The sines of the plane rotations.
INCC
INCC is INTEGER
The increment between elements of C and S. INCC > 0.
Author:
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date:
November 2011
Definition at line 111 of file dlar2v.f.
Author
Generated automatically by Doxygen for LAPACK from the source code.
Version 3.4.1 Sun May 26 2013 dlar2v.f(3)