04-02-2010
Hope this helps...
Using Perl one-liner:
perl -pe 's/^([a-z]+).*([0-9]+)/$1 $2/g' file
abcd 1
abcd 2
abcd 3
Too make change to file permanent, add the -i + extension switch to make a backup of the file, then make change to original file.
perl -i.bak -pe 's/^([a-z]+).*([0-9]+)/$1 $2/g' file
Should end up with "file" and "file.bak" which is a backup of the original file. Original "file" now contains:
abcd 1
abcd 2
abcd 3
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I am looking for a way to remove any line in a text file that contains the string "Mac address". I guess you would grep and sed, but I am not sure how to do this. Thanks for you help. (3 Replies)
Discussion started by: CBarraford
3 Replies
2. UNIX for Dummies Questions & Answers
If I have a data test.txt with 1000 columns such as:
id sex gene1 gene2 gene2.dl gene3 gene4 gene4.dl .......
1 1 AA AT AT TT AT AT .......
2 1 AG TT TT TA AA AA .......
3 2 AA AT AT TT AT ... (2 Replies)
Discussion started by: AMBER
2 Replies
3. Shell Programming and Scripting
I have 5 column in sample txt file
where in i have to create report based upon 1,3 and 5 th column..
I have : in first and third coulmn. But I want to retain the colon of fifth coulmn and remove the colon of first column..
5th column contains String message (for example,... (7 Replies)
Discussion started by: Shirisha
7 Replies
4. Shell Programming and Scripting
Hello ,
i have a text file like this :
A123 c12AB c32DD aaaa
B123 23DS 12QW bbbb
C123 2GR 3RG cccccc
i want to remove the numbers from second and third column only.
i tried this :
perl -pe 's///g' file.txt > newfile.txt
but it will remove the number from... (7 Replies)
Discussion started by: shelladdict
7 Replies
5. Shell Programming and Scripting
Hi,
I need help to remove tab delimited space in the $2 of a specific row. My file is like this:-
file1.txt
No_1 4 139 156
No_1 5 161 205
No_4 91 227 212
No_19 254 243 263
No_19 645 249 258
No_19 101 2492 2635
No_90 8 277 288... (5 Replies)
Discussion started by: redse171
5 Replies
6. Shell Programming and Scripting
Hi,
I would like to ask your expertise to remove specific column no. 8 in the below file using but I don't have an idea on how to simply do this using awk command. Appreciate your help in advance.
Input f:
ABC 1 1XC
CDA 1 2YC
CCC 1 3XC
AVD 1 3XA
Expected output file:
ABC 1 1C
CDA... (9 Replies)
Discussion started by: zzavilz
9 Replies
7. Shell Programming and Scripting
Hi All, I will need an help with respect to replacing a range of columns on a non-delimited file using a particular string pattern.
Say file input is
MYNUMBERD000000-BAN CHUE INSNTS ** N+
MYAREDSDD000000+BAN CHUE INSNTS ** N+
MYDERFFFSD00000-GIR PENT - ACH ** ... (5 Replies)
Discussion started by: navojit dutta
5 Replies
8. Shell Programming and Scripting
I have an xml file dumped from rrd file, that I want to "patch" so the xml file doesn't contain any blank hole in the resulting graph of the rrd file.
Here is the file.
<!-- 2015-10-12 14:00:00 WIB / 1444633200 --> <row><v> 4.0419731265e+07 </v><v> 4.5045912770e+06... (2 Replies)
Discussion started by: rk4k
2 Replies
9. Shell Programming and Scripting
Dear group,
I have following input text file:
Brit 2016 11 18 12 00 10 1.485,00 EUR
Brit 2016 11 18 12 00 10 142,64 EUR
Brit 2016 11 18 12 00 10 19,80 EUR
Brit 2016 11 18 12 00 10 545,00 EUR
Brit 2016 11 18 12 00 10 6.450,00 EUR... (3 Replies)
Discussion started by: gfhsd
3 Replies
10. Shell Programming and Scripting
I need to remove specific column to one range
source file
3 1 000123456
2 2 000123569
3 3 000123564
12 000123156
15 000125648
128 000125648
Output required
3 000123456
2 000123569
3 000123564
12 000123156
15 000125648
128 000125648 (6 Replies)
Discussion started by: ranjancom2000
6 Replies
LEARN ABOUT CENTOS
ppix::regexp::token::literal
PPIx::Regexp::Token::Literal(3) User Contributed Perl Documentation PPIx::Regexp::Token::Literal(3)
NAME
PPIx::Regexp::Token::Literal - Represent a literal character
SYNOPSIS
use PPIx::Regexp::Dumper;
PPIx::Regexp::Dumper->new( 'qr{foo}smx' )
->print();
INHERITANCE
"PPIx::Regexp::Token::Literal" is a PPIx::Regexp::Token.
"PPIx::Regexp::Token::Literal" has no descendants.
DESCRIPTION
This class represents a literal character, no matter how specified.
METHODS
This class provides the following public methods. Methods not documented here are private, and unsupported in the sense that the author
reserves the right to change or remove them without notice.
ordinal
print 'The ordinal of ', $token->content(),
' is ', $token->ordinal(), "
";
This method returns the ordinal of the literal if it can figure it out. It is analogous to the "ord" built-in.
It will not attempt to determine the ordinal of a unicode name ("N{...}") unless charnames has been loaded, and supports the vianame()
function. Instead, it will return "undef". Users of Perl 5.6.2 and older may be out of luck here.
Unicode code points (e.g. "N{U+abcd}") should work independently of charnames, and just return the value of "abcd".
It will never attempt to return the ordinal of an octet ("C{...}") because I don't understand the syntax.
SUPPORT
Support is by the author. Please file bug reports at <http://rt.cpan.org>, or in electronic mail to the author.
AUTHOR
Thomas R. Wyant, III wyant at cpan dot org
COPYRIGHT AND LICENSE
Copyright (C) 2009-2013 by Thomas R. Wyant, III
This program is free software; you can redistribute it and/or modify it under the same terms as Perl 5.10.0. For more details, see the full
text of the licenses in the directory LICENSES.
This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose.
perl v5.16.3 2014-06-10 PPIx::Regexp::Token::Literal(3)