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)
continue(3tcl) Tcl Built-In Commands continue(3tcl)__________________________________________________________________________________________________________________________________________________NAME
continue - Skip to the next iteration of a loop
SYNOPSIS
continue
_________________________________________________________________DESCRIPTION
This command is typically invoked inside the body of a looping command such as for or foreach or while. It returns a TCL_CONTINUE code,
which causes a continue exception to occur. The exception causes the current script to be aborted out to the innermost containing loop
command, which then continues with the next iteration of the loop. Catch exceptions are also handled in a few other situations, such as
the catch command and the outermost scripts of procedure bodies.
EXAMPLE
Print a line for each of the integers from 0 to 10 except 5:
for {set x 0} {$x<10} {incr x} {
if {$x == 5} {
continue
}
puts "x is $x"
}
SEE ALSO break(3tcl), for(3tcl), foreach(3tcl), return(3tcl), while(3tcl)KEYWORDS
continue, iteration, loop
Tclcontinue(3tcl)