pattern searching in perl ?

[jaigs_27]

-rw-rw---- 1 test test 2809 Feb 11 19:05 /abc/xyz/test_sys/bin/sys.d/tc1_0.sh


I want only /abc/xyz/test_sys/bin/sys.d/tc1_0.sh How can do that ???

[wje_lf]

Assuming none of your file names contain spaces, do this:

$string=~s/^.* //;

Otherwise, you can go a bit more complex:

$string=~s/^.*?\:\d\d //;

Hope this helps.

[jaigs_27]

its working fine for all except for below mentioned line it does not work

-rw-rw---- 1 test test 1246 Feb 6 19:05 /abc/xyz/pt_100.sh


Can you suggest me some doc for patten searching.

thanks

[wje_lf]

its working fine for all except for below mentioned line it does not work

-rw-rw---- 1 test test 1246 Feb 6 19:05 /abc/xyz/pt_100.sh

It worked for me. What happens when you run this script? (You may have to change the first line if Perl on your system is elsewhere.)

#!/usr/bin/perl

$string1=<DATA>;
chomp($string1);
$string2=$string1;
$string1=~s/^.* //;
$string2=~s/^.*?\:\d\d //;

print("$string1\n$string2\n");

__END__
-rw-rw---- 1 test test 1246 Feb 6 19:05 /abc/xyz/pt_100.sh

When I run it, I get as output

/abc/xyz/pt_100.sh
/abc/xyz/pt_100.sh

Can you suggest me some doc for patten searching.

perlrequick - perldoc.perl.org
perlretut - perldoc.perl.org

[Cabhan]

For what it's worth, this doesn't even require a regular expression. This can be easily done with the split operator:

alex@danu ~/test/perl $ cat split_ls 
#!/usr/bin/perl -w

# if we use split's handy implicit variable...
$_ = "-rw-rw---- 1 test test 1246 Feb 6 19:05 /abc/xyz/pt_100.sh";
$name = (split)[-1];

print "$name\n";

# otherwise...
$line = "-rw-rw---- 1 test test 1246 Feb 6 19:05 /abc/xyz/pt_100.sh";
$name = (split / /, $line)[-1];

print "$name\n";
alex@danu ~/test/perl $ ./split_ls 
/abc/xyz/pt_100.sh
/abc/xyz/pt_100.sh

split produces an array, and I use the index "-1" to get the last element in that array. Note that this does not work if there is a space in the filename.

[ghostdog74]

$s="-rw-rw---- 1 test test 2809 Feb 11 19:05 /abc/xyz/test_sys/bin/sys.d/tc1_0.sh";
print substr($s,index($s,"/"));

[Cabhan]

$s="-rw-rw---- 1 test test 2809 Feb 11 19:05 /abc/xyz/test_sys/bin/sys.d/tc1_0.sh";
print substr($s,index($s,"/"));

That is beautiful. I never even considered doing that.

[jaigs_27]

Great help, thanks all

[jaigs_27]

is there any way to get the data between two words e.g.

REV: THIS IS LIux~#X VERSION: 4.0

not I just want "THIS IS LIux~#X"

and "4.0"
separately.

[jaigs_27]

s there any way to get the data between two words e.g.

REV: THIS IS LIux~#X VERSION: 4.0

not I just want "THIS IS LIux~#X"

and "4.0"