03-03-2009
Look at the modules on CPAN:
The CPAN Search Site - search.cpan.org
The code you posted is not really perl code. Its just perl running a shell command and getting back the results. I think you do know that but I bring it to your attention just in case.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi All,
Can someone please help me write a script for the following requirement in awk, grep, sed or perl.
Buuuu xxx bbb
Kmmmm rrr ssss uuuu
Kwwww zzzz ccc
Roooowwww eeee
Bxxxx jjjj dddd
Kuuuu eeeee nnnn
Rpppp cccc vvvv cccc
Rhhhhhhyyyy tttt
Lhhhh rrrrrssssss
Bffff mmmm iiiii
Ktttt... (5 Replies)
Discussion started by: kumarn
5 Replies
2. Shell Programming and Scripting
Hi Guys,
I need to set the value of $7 to zero in case $7 is NULL. I've tried the below command but doesn't work. Any ideas. thanks guys.
MEM=`ps v $PPID| grep -i db2 | grep -v grep| awk '{ if ( $7 ~ " " ) { print 0 } else { print $7}}' `
Harby. (4 Replies)
Discussion started by: hariza
4 Replies
3. Shell Programming and Scripting
I'm using perl to do a grep of each line in a vendor file and find its occurrences in a specific directory. Any values found is saved in @dir.
.....(file opened, etc.)
....
while ($line=<FILE>){
@dir = `grep $line * `;
}
It's the specific usage of the system grep that I'm having... (7 Replies)
Discussion started by: gavineq
7 Replies
4. Shell Programming and Scripting
OK here's the situation:
I have got these lines which I have got to parse.
If the line contains a particular string and any element from a previously defined array I need to take that particular line and do some further processing.
if ((grep(/$_/,$1)) && (grep($pattern,@myarr)))
{
#Do... (2 Replies)
Discussion started by: King Nothing
2 Replies
5. Shell Programming and Scripting
Hello,
I trying to extract text that is surrounded by xml-tags. I tried this
cat tst.xml | egrep "<SERVER>.*</SERVER>" |sed -e "s/<SERVER>\(.*\)<\/SERVER>/\1/"|tr "|" " "
which works perfect, if the start-tag and the end-tag are in the same line, e.g.:
<tag1>Hello Linux-Users</tag1>
... (5 Replies)
Discussion started by: Sebi0815
5 Replies
6. Shell Programming and Scripting
Hello
I want to grep a line from a file saved in some directory.
Can anyone please correct the code below:
#!/usr/bin/perl -w
$file = "/home/output.txt"
$grep_line = "closing zip for topic";
`grep $grep_line* $file`; (1 Reply)
Discussion started by: sureshcisco
1 Replies
7. Shell Programming and Scripting
Hi All i have this script that uses glob to look in /var/log/messages.*
my @messagefiles = glob "/var/log/messages.*";
and the code that uses it is this
grep { /NVRM: Xid/ } @messages)
but this spits out this
/var/log/messages-20111030:Oct 25 13:43:04 brent kernel: NVRM:... (10 Replies)
Discussion started by: ab52
10 Replies
8. Shell Programming and Scripting
Hi dear users,
I need to compare numeric columns in two files. These files have the following structure.
K.txt (4 columns)
A001 chr21 9805831 9846011
A002 chr21 9806202 9846263
A003 chr21 9887188 9988593
A003 chr21 9887188 ... (2 Replies)
Discussion started by: jcvivar
2 Replies
9. Shell Programming and Scripting
I have an input file
12.4 1.72849432773174e+01 -7.74784188610632e+01
12.5 9.59432114416327e-01 -7.87018212757537e+01
15.6 5.20139995965960e-01 -5.61612429666624e+01
29.3 3.76696387248366e+00 -7.42896194101892e+01
32.1 1.86899877018077e+01 -7.56508762501408e+01
35 6.98857157014640e+00... (2 Replies)
Discussion started by: chrisjorg
2 Replies
10. UNIX for Dummies Questions & Answers
Hi,
I have a number of files containing the information below.
"""""
Fundallinfo
6.3950 14.9715 14.0482
"""""
I would like to grep for Fundallinfo and use it to read the next line? I ideally would like to read the three numbers that follow in the next line and... (2 Replies)
Discussion started by: Paul Moghadam
2 Replies
LEARN ABOUT DEBIAN
svn::class::info
SVN::Class::Info(3pm) User Contributed Perl Documentation SVN::Class::Info(3pm)
NAME
SVN::Class::Info - Subversion workspace info
SYNOPSIS
use SVN::Class;
my $file = svn_file( 'path/to/file' );
my $info = $file->info;
printf "repository URL = %s
", $info->url;
DESCRIPTION
SVN::Class::Info represents the output of the "svn info" command.
METHODS
SVN::Class::Info does not inherit from SVN::Class, but only Class::Accessor::Fast.
new( $dir->stdout )
Creates new SVN::Class::Info instance. The lone argument should be an array ref of output from a call to the SVN::Class object's info()
method.
You normally do not need to use this method directly. See the SVN::Class info() method.
dump
Returns dump() of the object, just like SVN::Class->dump().
url
Get the URL value. Returns a SVN::Class::Repos object.
path
wc_root
Working Copy Root Path
name
root
rev
node
schedule
author
last_rev
date
updated
checksum
uuid
Get/set the info params. These are really only useful as accessors (getters).
AUTHOR
Peter Karman, "<karman at cpan.org>"
BUGS
Please report any bugs or feature requests to "bug-svn-class at rt.cpan.org", or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=SVN-Class <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=SVN-Class>. I will be notified,
and then you'll automatically be notified of progress on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc SVN::Class
You can also look for information at:
o AnnoCPAN: Annotated CPAN documentation
http://annocpan.org/dist/SVN-Class <http://annocpan.org/dist/SVN-Class>
o CPAN Ratings
http://cpanratings.perl.org/d/SVN-Class <http://cpanratings.perl.org/d/SVN-Class>
o RT: CPAN's request tracker
http://rt.cpan.org/NoAuth/Bugs.html?Dist=SVN-Class <http://rt.cpan.org/NoAuth/Bugs.html?Dist=SVN-Class>
o Search CPAN
http://search.cpan.org/dist/SVN-Class <http://search.cpan.org/dist/SVN-Class>
ACKNOWLEDGEMENTS
I looked at SVN::Agent before starting this project. It has a different API, more like SVN::Client in the SVN::Core, but I cribbed some of
the ideas.
The Minnesota Supercomputing Institute "http://www.msi.umn.edu/" sponsored the development of this software.
COPYRIGHT
Copyright 2008 by the Regents of the University of Minnesota.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO
Path::Class, Class::Accessor::Fast, SVN::Agent, IPC::Cmd
perl v5.14.2 2012-01-31 SVN::Class::Info(3pm)