search for a string -perl


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting search for a string -perl
# 1  
Old 02-12-2008
search for a string -perl

Hi,

I have a line where i need to get certain part of it.. example..

text txt tt: 1909

thats how exactly it looks and all spaces are to be counted.. i need to retrieve 1909..

Thanks
# 2  
Old 02-12-2008
Code:
s/^.* //;

[ Message too short ]
# 3  
Old 02-12-2008
Quote:
Originally Posted by meghana
Hi,

I have a line where i need to get certain part of it.. example..

text txt tt: 1909

thats how exactly it looks and all spaces are to be counted.. i need to retrieve 1909..

Thanks
What do you mean spaces are to be counted? Do you need to know how many spaces are there between the "tt:" and "1909"? Are there always three words here? Is it always the last word in the line?

Possible solutions, each all does roughly the same thing:
Code:
  m/:\s*/ && print $';
  m/:\s*(\d+)/ && print $1;
  m/^\S+\s+\S+\s+\S+\s+(\S+)$/ && print $1;
  chop; ($junk,$year)=split(':\s+',$_,2);

Of course, you won't need to fire up perl just to do this.
Code:
  cut -d ":" -f 4

would generally do the trick. So would

Code:
  awk -F "[: ]*" '{ print $4 }'

# 4  
Old 02-12-2008
OP is interested to extract the digits after the last space from the literal
which turns out to be the digits after the space.
# 5  
Old 02-12-2008
yes matrixmadhan is rite.. i just need to retrieve the number '1909'....

thanks
# 6  
Old 02-12-2008
Quote:
Originally Posted by matrixmadhan
Code:
s/^.* //;

[ Message too short ]
Hey can you explain me what does this do .. thanks again!Smilie
# 7  
Old 02-12-2008
Quote:
Originally Posted by meghana
yes matrixmadhan is rite.. i just need to retrieve the number '1909'....

thanks
So why not just hard-code "1909". Anyway, his perl solution will fail if there are any spaces after the year. Better to use:

Code:
 s/^.*(?:\S)//;

Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Loop with Perl (string search)

I am using a perl script to reverse and complement sequences if a string is found. The script works as expected as standalone but I would like to use it in my bash file. However, I am not getting my expected result. My test.txt file >Sample_72... (8 Replies)
Discussion started by: Xterra
8 Replies

2. UNIX for Dummies Questions & Answers

Search different string using perl

Hello, I want to search two strings in a file and print the same in the new file using perl script. Can anyone suggest me how to do this... The file looks like below: <UML:ModelElement.requirement> <UML:Dependency name="Row_MainColumn_FW_0009"> <UML:ModelElement.taggedValue>... (3 Replies)
Discussion started by: suvendu4urs
3 Replies

3. Shell Programming and Scripting

perl- read search and replace string from the file

Dear all, I have a number of files and each file has two sections separated by a blank line. At the top section, I have lines which describes the values of the alphabetical characters, # s #; 0.123 # p #; 12.3 # d #; -2.33 # f #; 5.68 <blank line> sssssss spfdffff sdfffffff Now I... (4 Replies)
Discussion started by: sasharma
4 Replies

4. Shell Programming and Scripting

perl search string for cut data

perl -lne '$/="1H1XXXXX";print $_ if /0001|0002|0003/' data.txt> output.txt more data.txt 1H1XXXXX|0001|Y| aaa bbb ccc 1H1XXXXX|0005|N| bbb g 1H1XXXXX|0001|Y| hhh ddd 222 1H1XXXXX|0002|Y| 444 1H1XXXXX|0002|N| 222 1H1XXXXX|0003|Y| hhhh (3 Replies)
Discussion started by: kittiwas
3 Replies

5. Shell Programming and Scripting

search of string from an array in Perl

Hi All I want to search a string from an array in Perl. If a match occurs, assign that string to a variable else assign 'No match'. I tried writing the script as follows but it's in vain. Please help me.. #!/usr/bin/perl use strict; my $NER; my @text=("ORG","PER"); ... (4 Replies)
Discussion started by: my_Perl
4 Replies

6. Shell Programming and Scripting

How to search a date format from a file an replace with a string in PERL

I am very new to Perl. I am struggling so hard to search a date (such as 10/09/2009, 10-09-2009) from a text file and replace with a string (say DATE) using Perl. Please help me out. Thanks in advance. Regds Doren (4 Replies)
Discussion started by: my_Perl
4 Replies

7. Shell Programming and Scripting

Perl search in a string for....

ok so what I am trying to do is search through 200k files that have ext .000 or .702. for *@yahoo.com.tw and if it finds that in the file. then remove the file. this is my code... what am i doing wrong. it seams it will only find asdflkajsdf@yahoo.com.tw as a string and not *@yahoo.com.tw so it... (5 Replies)
Discussion started by: Philux
5 Replies

8. Shell Programming and Scripting

Perl: Search for string on line then compare numbers!

Hi All, I have a file that I need to be able to find a pattern match on a line, take the number on that line check if its >0.9 or <0.1 and if this is true write the line to output.out file. An example of 4 lines in my file is: 1. driver.I177.I11.net010 1.48622200477273e-05 2.... (2 Replies)
Discussion started by: Crypto
2 Replies

9. Shell Programming and Scripting

Perl: Search for string on line then search and replace text

Hi All, I have a file that I need to be able to find a pattern match on a line, search that line for a text pattern, and replace that text. An example of 4 lines in my file is: 1. MatchText_randomNumberOfText moreData ReplaceMe moreData 2. MatchText_randomNumberOfText moreData moreData... (4 Replies)
Discussion started by: Crypto
4 Replies

10. Shell Programming and Scripting

Perl: Search for string then parse next line

Hi All, I have a file that I need to be able to find a pattern match on one line then parse data on the next or subsequent lines - I will know which line needs to be parsed beforehand. This is what I currently have: while (<COMMAND_OUT>) { if ($_ =~ m/TEST/) { ... (4 Replies)
Discussion started by: pondlife
4 Replies
Login or Register to Ask a Question