I have text file with hundreds of lines, space delimited, each line has the same amount of "columns" and the same amount of characters in each, Column 1, Column 2, and Column 3.
I need a script that will print all columns of the "current" line along with the last two columns of the next line ONLY IF the first columns are equal.
Another way of putting it...
If Column1CurrentLine equals Column1NextLine
print AllOfCurrentLine Column2NextLine Column3NextLine
So my input has 3 columns and my output would have 5 total but only 3 in some lines?
input:
output:
Last edited by Yogesh Sawant; 04-22-2008 at 04:12 AM..
Reason: added code tags
Hi
I have a file with multiple columns. But there is something weird on column one that is attached to the name. The good thing is that its a consistent pattern so there should be a way to remove it.
So the first column looks something like this:
name_345.4ml
date_3456.4ml
year_12.4ml... (3 Replies)
Hi,
I want to get rid of multiple rows (duplicate, triplicate etc..) for only column 1.
e.g.
iu 2
iu 1
iu 3
k 4
jk 3
nm 4
nm 2
output
k 4
jk 3
thanks (7 Replies)
Hi,
I have the following script which runs well :-
ls -l /etc/*.txt > /dev/null 2>&1
if ; then
"Success"
fi
But, if I try,
if ; then
"Success"
fi
Does not works !
Even, (4 Replies)
Hi, i have a problem,
I have three files, file_1, File_2 file_3 and I need to compare the data with file_3 file_1, data that are equal to file_3 file_1 should be deleted, file_1 receive data and file_2 file_3.
Ex:
file_1
374905,2001, Selmar Santos, Técnico de Sistemas, U$3.000,00
789502,... (3 Replies)
Hello i have 2 files:
a.out
10.1.1.1 james.franco
10.1.1.3 google.gol
10.1.1.14 yahoo.bol
b.out
10.1.1.1
10.1.1.3
10.1.1.45
I need to see an output just with:
10.1.1.1 james.franco
10.1.1.3 google.gol
Thankz in advance!! (2 Replies)
how to compare to arrays to check if each elements of the first are the same of the second?
for ((i=0;i<$LENGTH;i++)) ; do
for (j=0;j<$LENGTH;j++)) ; do
if } == ${ARR2} ]
echo "Are the same";
fi;
done;
done;
i try this but it doesn't work :(
if i make... (0 Replies)
Hi,
I was hoping someone could explain this please :)
I'm using bash, scientific linux... and I don't know what else you need to know. With
awk '{ if( 0.3 == 0.1*3) print $1}' file.dat
nothing will be printed since apparently the two numbers do not equate. (Using 0.3 != 0.1*3 is seen... (4 Replies)
Hi All,
Trying to get my bash script if statement to work however my if variable equals xxx statement doesnt appear to work, could anyone shed some light.
./script $password &> output
INCORRECTPASS=`grep "Permission denied, please try again." output`
echo "$INCORRECTPASS"
... (8 Replies)
Hello,
I have stucked at one point.
When I run the script, I am asking the script to search in database file and if it's found, do nothing and proceed to next line in database file.
#!/bin/bash
./extract_email.pl output2 > database
while read -r COL1
X=$(grep $COL1 database )
if ]... (7 Replies)
Discussion started by: baris35
7 Replies
LEARN ABOUT REDHAT
pdl::char
Char(3) User Contributed Perl Documentation Char(3)NAME
PDL::Char -- PDL subclass which allows reading and writing of fixed-length character strings as byte PDLs
SYNOPSIS
use PDL;
use PDL::Char;
my $pchar = PDL::Char->new( [['abc', 'def', 'ghi'],['jkl', 'mno', 'pqr']] );
$pchar->setstr(1,0,'foo');
print $pchar; # 'string' bound to "", perl stringify function
# Prints:
# [
# ['abc' 'foo' 'ghi']
# ['jkl' 'mno' 'pqr']
# ]
print $pchar->atstr(2,0);
# Prints:
# ghi
DESCRIPTION
This subclass of PDL allows one to manipulate PDLs of 'byte' type as if they were made of fixed length strings, not just numbers.
This type of behavior is useful when you want to work with charactar grids. The indexing is done on a string level and not a character
level for the 'setstr' and 'atstr' commands.
This module is in particular useful for writing NetCDF files that include character data using the PDL::NetCDF module.
FUNCTIONS
new
Function to create a byte PDL from a string, list of strings, list of list of strings, etc.
# create a new PDL::Char from a perl array of strings
$strpdl = PDL::Char->new( ['abc', 'def', 'ghij'] );
# Convert a PDL of type 'byte' to a PDL::Char
$strpdl1 = PDL::Char->new (sequence (byte, 4, 5)+99);
$pdlchar3d = PDL::Char->new([['abc','def','ghi'],['jkl', 'mno', 'pqr']]);
string
Function to print a character PDL (created by 'char') in a pretty format.
$char = PDL::Char->new( [['abc', 'def', 'ghi'], ['jkl', 'mno', 'pqr']] );
print $char; # 'string' bound to "", perl stringify function
# Prints:
# [
# ['abc' 'def' 'ghi']
# ['jkl' 'mno' 'pqr']
# ]
# 'string' is overloaded to the "" operator, so:
# print $char;
# should have the same effect.
setstr
Function to set one string value in a character PDL. The input position is the position of the string, not a character in the string. The
first dimension is assumed to be the length of the string.
The input string will be null-padded if the string is shorter than the first dimension of the PDL. It will be truncated if it is longer.
$char = PDL::Char->new( [['abc', 'def', 'ghi'], ['jkl', 'mno', 'pqr']] );
$char->setstr(0,1, 'foobar');
print $char; # 'string' bound to "", perl stringify function
# Prints:
# [
# ['abc' 'def' 'ghi']
# ['foo' 'mno' 'pqr']
# ]
$char->setstr(2,1, 'f');
print $char; # 'string' bound to "", perl stringify function
# Prints:
# [
# ['abc' 'def' 'ghi']
# ['foo' 'mno' 'f'] -> note that this 'f' is stored "f "
# ]
atstr
Function to fetch one string value from a PDL::Char type PDL, given a position within the PDL. The input position of the string, not a
character in the string. The length of the input string is the implied first dimension.
$char = PDL::Char->new( [['abc', 'def', 'ghi'], ['jkl', 'mno', 'pqr']] );
print $char->atstr(0,1);
# Prints:
# jkl
perl v5.8.0 2001-05-27 Char(3)