06-27-2011
$ echo "/u/user/NDE/TEST_LOGS/20110622_000005_TEST_11_HD_120/HD/TEST_11_HD_120/hd-12" | awk -F"/" ' { print $6 } ' | sed 's,^,var1=,g;s,_,; var2=,2'
var1=20110622_000005; var2=TEST_11_HD_120
$
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi Everyone,
I have:
$val="QQ3_1899_CD4".
The output will be:
1899.
I did $val =~ /(\d+)/g; the output is 318994, then i use substr to get those 1899. This is not efficient.
Is any simple way, like just one line can do? Thanks (1 Reply)
Discussion started by: jimmy_y
1 Replies
2. Shell Programming and Scripting
Hi All,
I have:
$d = "12.02222222222";
$d =~ s/(.*).(.*)/$1/e;
The output should be just 12.
Please guide me my expression wrong.
Thanks (5 Replies)
Discussion started by: jimmy_y
5 Replies
3. Shell Programming and Scripting
Hi,
Could anyone help me in writing a single line code by either using (sed, awk, perl or whatever) to extract a specific path from the PATH environment variable?
for eg: suppose the PATH is being set as follows
PATH=/usr/bin/:/usr/local/bin:/bin:/usr/sbin:/usr/bin/java:/usr/bin/perl3.4
... (2 Replies)
Discussion started by: royalibrahim
2 Replies
4. Shell Programming and Scripting
Hello, this is probably a simple request but I've been toying with it for a while.
I have a large list of devices and commands that were run with a script, now I have lines such as:
a-router-hostname-C#show ver
I want to print everything up to (and excluding) the # and everything after it... (3 Replies)
Discussion started by: ippy98
3 Replies
5. Shell Programming and Scripting
Hi
I have a log file which has outputs like the one below
conn=24,196 op=1 RESULT err=0 tag=0 nentries=9 etime=3,712 dbtime=0 mem=486,183,328/2,147,483,648
Now most of the time I am only interested in the time ( the first column) and a column that begins with etime i.e... (8 Replies)
Discussion started by: pkabali
8 Replies
6. Shell Programming and Scripting
I have a list of strings in file:
10 10 AAA
120 13 BBBBB
23 11 CCCCC
11 32 DDDDDD
I want to replace first column of the text such as: 10, 129, 23, 11 with 11, 22, 33, 44.
I can do line by line, but just not sure how to replace partial string without... (1 Reply)
Discussion started by: ford99
1 Replies
7. Shell Programming and Scripting
Hi Guys,
I need replace part of string in a file.
for example:
ABC=123
CDE=122
DEF=456
ABC=123
DED=333
ABC=123
I need replace the value after ABC=, highlighted in red. I want to get following result;
ABC=456
CDE=122
DEF=456
ABC=456
DED=333
ABC=456
Anybody can help me this.
... (8 Replies)
Discussion started by: ken6503
8 Replies
8. Shell Programming and Scripting
Trying to combine strings that are a partial match to another in $1 (usually below it). If a match is found than the $2 value is added to the $2 value of the match and the $3 value is added to the $3 value of the match. I am not sure how to do this and need some expert help. Thank you :).
file
... (2 Replies)
Discussion started by: cmccabe
2 Replies
9. UNIX for Beginners Questions & Answers
I have a two file as shown below,
file:1
>Contig_152_415 (REVERSE SENSE)
>Contig_152_420 (REVERSE SENSE)
>Contig_152_472 (REVERSE SENSE)
>Contig_152_484 (REVERSE SENSE)
File:2
>Contig_152:49081-49929
ATCGAGCAGCGCCGCGTGCGGTGCACCCTTGTGCAGATCGGGAGTAACCACGCGCACGGC... (2 Replies)
Discussion started by: dineshkumarsrk
2 Replies
10. UNIX for Beginners Questions & Answers
I have the below string which i need to compare with a file and replace this string in the file which matches closely. Can anyone help me on this.
string(Scenario 1)- user::r--,user::ourfrd:r--
String(Scenario 2)- user::r--
File
****
# file: /local/Desktop/myfile
# owner: me
# group:... (6 Replies)
Discussion started by: sarathy_a35
6 Replies
LEARN ABOUT SUSE
cpanplus::internals::extract
CPANPLUS::Internals::Extract(3pm) Perl Programmers Reference Guide CPANPLUS::Internals::Extract(3pm)
NAME
CPANPLUS::Internals::Extract
SYNOPSIS
### for source files ###
$self->_gunzip( file => 'foo.gz', output => 'blah.txt' );
### for modules/packages ###
$dir = $self->_extract( module => $modobj,
extractdir => '/some/where' );
DESCRIPTION
CPANPLUS::Internals::Extract extracts compressed files for CPANPLUS. It can do this by either a pure perl solution (preferred) with the
use of "Archive::Tar" and "Compress::Zlib", or with binaries, like "gzip" and "tar".
The flow looks like this:
$cb->_extract
Delegate to Archive::Extract
METHODS
$dir = _extract( module => $modobj, [perl => '/path/to/perl', extractdir => '/path/to/extract/to', prefer_bin => BOOL, verbose => BOOL, force
=> BOOL] )
"_extract" will take a module object and extract it to "extractdir" if provided, or the default location which is obtained from your
config.
The file name is obtained by looking at "$modobj->status->fetch" and will be parsed to see if it's a tar or zip archive.
If it's a zip archive, "__unzip" will be called, otherwise "__untar" will be called. In the unlikely event the file is of neither format,
an error will be thrown.
"_extract" takes the following options:
module
A "CPANPLUS::Module" object. This is required.
extractdir
The directory to extract the archive to. By default this looks something like:
/CPANPLUS_BASE/PERL_VERSION/BUILD/MODULE_NAME
prefer_bin
A flag indicating whether you prefer a pure perl solution, ie "Archive::Tar" or "Archive::Zip" respectively, or a binary solution like
"unzip" and "tar".
perl
The path to the perl executable to use for any perl calls. Also used to determine the build version directory for extraction.
verbose
Specifies whether to be verbose or not. Defaults to your corresponding config entry.
force
Specifies whether to force the extraction or not. Defaults to your corresponding config entry.
All other options are passed on verbatim to "__unzip" or "__untar".
Returns the directory the file was extracted to on success and false on failure.
perl v5.12.1 2010-04-26 CPANPLUS::Internals::Extract(3pm)