12-21-2006
One more..... The grep one wasn't quite what you were looking for.
$ perl -nle 'while(m/\|(.*)/g){print "$1"}' test.txt
Kent
10 More Discussions You Might Find Interesting
1. Programming
How do I use the regular expressions in c++? (2 Replies)
Discussion started by: szzz
2 Replies
2. Shell Programming and Scripting
Hi,
can anyone advise me how to shorten this:
if || ; then
I tried but it dosent seem to work, whats the correct way.
Cheers (4 Replies)
Discussion started by: jack1981
4 Replies
3. UNIX for Dummies Questions & Answers
Hi Gurus,
I need help with regular expressions. I want to create a regular expression which will take only alpha-numeric characters for 7 characters long and will throw out an error if longer than that.
i tried various combinations but couldn't get it, please help me how to get it guys.
... (2 Replies)
Discussion started by: ragha81
2 Replies
4. Shell Programming and Scripting
Hello,
Let say I have a string with content "Free 100%". How can extract only "100" using ksh? I would this machanism to work if instead of "100" there is any kind of combination of numbers(ex. "32", "1238", "1"). I want to get only the digits.
I have written something like this:
... (4 Replies)
Discussion started by: whatever
4 Replies
5. UNIX for Advanced & Expert Users
Hi,
below is a piece of code written by my predecessor at work.
I'm kind of a newbie and am trying to figure out all the regular expressions in this piece of code.
It is really a tough time for me to figure out all the regular expressions.
Please shed some light on the regular expressions... (3 Replies)
Discussion started by: ramky79
3 Replies
6. UNIX for Dummies Questions & Answers
In regular expressions with grep(or egrep), ^ works if we want something in starting of line..but what if we write ^^^ or ^ for pattern matching??..Hope u all r familiar with regular expressions for pattern matching.. (1 Reply)
Discussion started by: aadi_uni
1 Replies
7. Shell Programming and Scripting
#!/usr/bin/perl
$word = "one last challenge";
if ( $word =~ /^(\w+).*\s(\w+)$/ )
{
print "$1";
print "\n";
print "$2";
}
The output shows that "$1" is with result one and "$2" is with result challenge. I am confused about how this pattern match expression works step by step. I... (8 Replies)
Discussion started by: DavidHe
8 Replies
8. Shell Programming and Scripting
I have a file that I'm trying to find all the cases of phone number extensions and deleting them. So input file looks like:
abc
x93825
def
13234
x52673
hello
output looks like:
abc
def
13234
hello
Basically delete lines that have 5 numbers following "x". I tried: x\(4) but it... (7 Replies)
Discussion started by: pxalpine
7 Replies
9. Shell Programming and Scripting
I am new to shell scripts.Can u please help me on this req.
test_user = "Arun"
if
echo "test_user is a word"
else
echo "test_user is not a word" (1 Reply)
Discussion started by: chandrababu
1 Replies
10. Shell Programming and Scripting
I need to pick a part of string lets stay started with specific character and end with specific character to replace using sed command
the line is like this:my audio book 71-skhdfon1dufgjhgf8.wav'
I want to move the characters beginning with - end before.
I have different files with random... (2 Replies)
Discussion started by: XP_2600
2 Replies
LEARN ABOUT DEBIAN
devel::trace
Trace(3pm) User Contributed Perl Documentation Trace(3pm)
NAME
Devel::Trace - Print out each line before it is executed (like "sh -x")
SYNOPSIS
perl -d:Trace program
DESCRIPTION
If you run your program with "perl -d:Trace program", this module will print a message to standard error just before each line is executed.
For example, if your program looks like this:
#!/usr/bin/perl
print "Statement 1 at line 4
";
print "Statement 2 at line 5
";
print "Call to sub x returns ", &x(), " at line 6.
";
exit 0;
sub x {
print "In sub x at line 12.
";
return 13;
}
Then the "Trace" output will look like this:
>> ./test:4: print "Statement 1 at line 4
";
>> ./test:5: print "Statement 2 at line 5
";
>> ./test:6: print "Call to sub x returns ", &x(), " at line 6.
";
>> ./test:12: print "In sub x at line 12.
";
>> ./test:13: return 13;
>> ./test:8: exit 0;
This is something like the shell's "-x" option.
DETAILS
Inside your program, you can enable and disable tracing by doing
$Devel::Trace::TRACE = 1; # Enable
$Devel::Trace::TRACE = 0; # Disable
or
Devel::Trace::trace('on'); # Enable
Devel::Trace::trace('off'); # Disable
"Devel::Trace" exports the "trace" function if you ask it to:
import Devel::Trace 'trace';
Then if you want you just say
trace 'on'; # Enable
trace 'off'; # Disable
TODO
o You should be able to send the trace output to the filehandle of your choice.
o You should be able to specify the format of the output.
o You should be able to get the output into a string.
We'll see.
LICENSE
Devel::Trace 0.11 and its source code are hereby placed in the public domain.
Author
Mark-Jason Dominus (C<mjd-perl-trace@plover.com>), Plover Systems co. See the C<Devel::Trace.pm> Page at
http://www.plover.com/~mjd/perl/Trace for news and upgrades.
perl v5.14.2 2012-02-16 Trace(3pm)