06-27-2011
Oops...
Last edited by yazu; 06-27-2011 at 10:55 AM..
Reason: It's about Perl...
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 DEBIAN
test::checkchanges
Test::CheckChanges(3pm) User Contributed Perl Documentation Test::CheckChanges(3pm)
NAME
Test::CheckChanges - Check that the Changes file matches the distribution.
VERSION
Version 0.14
SYNOPSIS
use Test::CheckChanges;
ok_changes();
You can make the test optional with
use Test::More;
eval { require Test::CheckChanges };
if ($@) {
plan skip_all => 'Test::CheckChanges required for testing the Changes file';
}
ok_changes();
DESCRIPTION
This module checks that you Changes file has an entry for the current version of the Module being tested.
The version information for the distribution being tested is taken out of the Build data, or if that is not found, out of the Makefile.
It then attempts to open, in order, a file with the name Changes or CHANGES.
The Changes file is then parsed for version numbers. If one and only one of the version numbers matches the test passes. Otherwise the
test fails.
A message with the current version is printed if the test passes, otherwise dialog messages are printed to help explain the failure.
The examples directory contains examples of the different formats of Changes files that are recognized.
FUNCTIONS
All functions listed below are exported to the calling namespace.
ok_changes( )
The ok_changes method takes no arguments and returns no value.
CHANGES FILE FORMAT
Currently this package parses 4 different types of "Changes" files. The first is the common, free style, "Changes" file where the version
is first item on an unindented line:
0.01 Fri May 2 15:56:25 EDT 2008
- more info
The second type of file parsed is the Module::Changes::YAML format changes file.
The third type of file parsed has the version number proceeded by an * (asterisk).
Revision history for Perl extension Foo::Bar
* 1.00
Is this a bug or a feature
The fourth type of file parsed starts the line with the word Version followed by the version number.
Version 6.00 17.02.2008
+ Oops. Fixed version number. '5.10' is less than '5.9'. I thought
CPAN would handle this but apparently not..
There are examples of these Changes file in the examples directory.
Create an RT if you need a different format file supported. If it is not horrid, I will add it.
The Debian style "Changes" file will likely be the first new format added.
BUGS
Please open an RT if you find a bug.
<http://rt.cpan.org/Public/Dist/Display.html?Name=Test-CheckChanges>
AUTHOR
"G. Allen Morris III" <gam3@gam3.net>
COPYRIGHT & LICENSE
Copyright (C) 2008-2010 G. Allen Morris III, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.1 2010-03-06 Test::CheckChanges(3pm)