Hi
I have a file (say 'file1')and I want to search for a first occurence of pattern (say 'ERROR') and print ten lines in the file below pattern. I have to code it in PERL and I am using Solaris 5.9.
I appreciate any help with code
Thanks
Ammu (6 Replies)
Hello People,
Need some assistance/guidance.
OUTLINE:
Two files (File1 and File2)
File1 has some ids such as
009463_3922_1827
897654_8764_5432
File2 has things along the lines of:
Query= 009463_3922_1827 length=252
(252 letters)
More stufff here
... (5 Replies)
Am trying to remove urls from text strings in PERL. I have the following but it does not seem to work:
$remarks =~ s/www\.\s+\.com//gi;
In English, I want to look for www. then I want to delete the www. and everything after it until I hit a space (but not including the space).
It's not... (2 Replies)
Hi,
I have one file in this format
20 value1
33 value2
56 value3
I have another file in this format:
34,30-SEP-09,57,100237775,33614510126,2,34
34,30-SEP-09,57,100237775,33620766654,2,34
34,30-SEP-09,108,100237775,33628458122,2,34
34,30-SEP-09,130,100237775,33635266741,2,254... (6 Replies)
Hi Friends, I have a tuff time with regular expressionss. Please let me know how to make this happen as it consumed lots of my time but in vain. Here is the sample text file i need to match for. I need to search for pattern1 removed, if it matches then search for pattern types either SE\ or... (2 Replies)
using perl
Hi All, i was wondering if anyone can solve how to extract the full tag from the xml line ie not sure what to put in the m// to get the string
"/data/TOP471//context_data/instruments.txt"
I basically want the above filename in a variable for further processing...
$_ =" ... (0 Replies)
I have to replace a line, if it has a pattern for example
Suppose file.out contains:
<tr><td class="cB">Hello</td><td class="cB">1245</td><td class="cB">958</td><td class="cRB">1.34</td><td class="cRB">1.36</td></tr>
<tr><td class="cB">world</td><td class="cB">3256</td><td... (8 Replies)
Hi all,
i have a peice of Perl script like this:
foreach (@line) {
@tmp = split /;/,$_;
#print "Line is: $_\n";
switch($tmp){
case m/p60/i {
push @p60, , $tmp ];
... (7 Replies)
PERL-AFTER-UPGRADE(1) User Contributed Perl Documentation PERL-AFTER-UPGRADE(1)NAME
perl-after-upgrade -- fixup FreeBSD packages that depend on perl
SYNOPSIS
perl-after-upgrade
perl-after-upgrade -f
perl-after-upgrade -v
DESCRIPTION
The standard procedure after a perl port (either lang/perl5.6 or lang/perl5.8) upgrade is to basically reinstall all other packages that
depend on perl. This is always a painful exercise. The perl-after-upgrade utility makes this process mostly unnecessary.
The tool goes through the list of installed packages, looks for those that depend on perl, moves files around, modifies shebang lines in
those scripts in which it is necessary to do so, tries its best to adjust dynamically linked binaries that link with libperl.so in the old
path, and updates the package database.
After installation of the new perl is complete, either by hand from the ports collection, or from a package, or via portupgrade, do the
following:
o go root;
o run perl-after-upgrade utility.
Do not specify any arguments at first, so it does nothing destructive. Pay attention to the produced output and especially to
errorlist at the end, if any;
o run the utility again, with -f command line option.
This will actually do the work. Again, pay attention to the output produced;
o fix any reported errors;
o reinstall required packages:
The utility will tell you what packages that depend on perl it could not handle. It will also tell you why it happened (for example,
they were compiled against a binary incompatible perl). If you want such packages to remain operational, you will have to reinstall
then by hand or via portupgrade.
o review the files left in the older perl installation.
This is typically /usr/local/lib/perl5/site_perl/5.X.Y/. There should be very little, if any, files in that directory and its subdi-
rectories, excepting a number of .ph files;
o check that things work as they should;
o remove backup files from the package database.
Those will be /var/db/pkg/*/+CONTENTS.bak;
o that's all.
COPYRIGHT AND LICENSE
Copyright 2005 by Anton Berezin
"THE BEER-WARE LICENSE" (Revision 42)
<tobez@FreeBSD.org> wrote this module. As long as you retain this
notice you can do whatever you want with this stuff. If we meet some
day, and you think this stuff is worth it, you can buy me a beer in
return.
Anton Berezin
NO WARRANTY OF ANY KIND, USE AT YOUR OWN RISK.
HISTORY
The first version of this utility was not bundled with perl package on FreeBSD. It was dumber than the current version in several impor-
tant areas. It was faster.
CREDITS
Thanks to Mathieu Arnold for discussion.
SEE ALSO perl(1).
perl v5.8.9 2009-04-13 PERL-AFTER-UPGRADE(1)