actually (I think) it should be - depending on how "strict" your definition/goal is - pick your poison :
Code:
BEGIN {
FS=OFS=","
}
{
t2[$2]=$1
t3[$3]=$1
t3t[$1]=$3
}
END {
for (i in t2)
print t2[i], i, t3t[t2[i]], (i in t3)?t3[i]:( t3t[t2[i]] in t2)?t2[t3t[t2[i]]]:""
}
Hi,
I want to replace a column in a file if it matches certain pattern. Can you help me on this.
Here is the file content.
000000 1111111 2222222
011111 0123445 1234556
023445 1111111 2343455
if second column contains 1111111 i need to replace it with 0000000
Can you... (6 Replies)
Hi there,
I've an input file1 as follows:
1001
1002
1003
1004
1005
I would like to have an output file2 as follows:
Numbers are 1001/ 1002/ 1003/ 1004/ 1005/
Any help is appreciated. (2 Replies)
Given a file such as this I need to remove the duplicates.
00060011 PAUL BOWSTEIN ad_waq3_921_20100826_010517.txt
00060011 PAUL BOWSTEIN ad_waq3_921_20100827_010528.txt
0624-01 RUT CORPORATION ad_sade3_10_20100827_010528.txt
0624-01 RUT CORPORATION ... (13 Replies)
Can anyone please help with this? I have 2 files as given below.
If 2nd column of file1 has pattern foo1@a, find the matching 1st column in file2 & replace 2nd column of file1 with file2's value.
file1
abc_1 foo1@a ....
abc_1 soo2@a ...
def_2 soo2@a ....
def_2 foo1@a ........ (7 Replies)
Hi All,
I have been trying to transpose rows to column in an large file (about 15000 lines) between matching pattern. Searched all posts in this forum, but not able find the solution to my problem. Any help appreciated.!!
Input
/*------XXXXXX-------*/
owner: XXXX
location: XXXX... (3 Replies)
This is my input file :
# cat list 20130430121600, cucm, location,76,2 20130430121600,cucm1,location1,76,4 20130430122000,cucm,location,80,8 20130430122000,cucm1,location1,90,8 20130430140000,cucm1,location1,87,11 20130430140000, cucm,location,67,9
This is the required output
... (1 Reply)
Hi,
My input files is like this
axis1 0 1 10
axis2 0 1 5
axis1 1 2 -4
axis2 2 3 -3
axis1 3 4 5
axis2 3 4 -1
axis1 4 5 -6
axis2 4 5 1
Now, these are my following tasks
1. Print a first column for every two rows that has the same value followed by a string.
2. Match on the... (3 Replies)
I have one requirement to delete all lines from a file if it matches below scenario. File contains three column. Employee Number, Employee Name and Employee ID
Scenario is: delete all line if Employee Number (1st column) contains below
1. Non-numeric Employee Number
2. Employee Number that... (3 Replies)
Discussion started by: anshu ranjan
3 Replies
LEARN ABOUT DEBIAN
ppix::editortools::renamepackagefrompath
PPIx::EditorTools::RenamePackageFromPath(3pm) User Contributed Perl Documentation PPIx::EditorTools::RenamePackageFromPath(3pm)NAME
PPIx::EditorTools::RenamePackageFromPath -Change the package name based on the files path
SYNOPSIS
my $munged = PPIx::EditorTools::RenamePackageFromPath->new->rename(
code => "package TestPackage;
use strict;
BEGIN {
$^W = 1;
}
1;
",
filename => './lib/Test/Code/Path.pm',
);
my $new_code_as_string = $munged->code;
my $package_ppi_element = $munged->element;
DESCRIPTION
This module uses PPI to change the package name of code.
METHODS
new()
Constructor. Generally shouldn't be called with any arguments.
rename( ppi => PPI::Document $ppi, filename => Str ) =item rename( code => Str $code, filename => Str )
Accepts either a "PPI::Document" to process or a string containing the code (which will be converted into a "PPI::Document") to
process. Replaces the package name with that supplied in the "filename" parameter and returns a "PPIx::EditorTools::ReturnObject" with
the new code available via the "ppi" or "code" accessors, as a "PPI::Document" or "string", respectively.
An attempt will be made to derive the package name from the filename passed as a parameter. The filename's path will converted to an
absolute path and it will be searched for a "lib" directory which will be assumed the start of the package name. If no "lib" directory
can be found in the absolute path, the relative path will be used.
Croaks with a "package name not found" exception if unable to find the package name.
SEE ALSO
This class inherits from "PPIx::EditorTools". Also see App::EditorTools, Padre, and PPI.
perl v5.14.2 2012-03-11 PPIx::EditorTools::RenamePackageFromPath(3pm)