Re: special pattern reading

You can use a regular expression match.

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $string = '?!?!?!/pack/something/whatever.cacshdska';

my ($before, $after) = $string =~ /(...)\W.*something.*\.c(.*)/;
say for $before, $after;
[download]

\W stands for a "non-word" character, it matches ! and ? among other characters.
a dot matches any character except a newline.
* means "the previous thing repeated zero or more times"
parentheses create "capture groups", what matches their contents gets returned (in this case, there are 2 capture groups, and we assing them to $before and $after).

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re: special pattern reading Select or Download Code

Replies are listed 'Best First'.
Re^2: special pattern reading by N0obieMonk (Novice) on Jan 13, 2016 at 10:28 UTC
your version reads the first "3" characters and everything after ".c" I need to read everything until the 3rd special character before the "/" `#!/usr/bin/perl use warnings; use strict; use feature qw{ say }; my $string = '!2!ab!!!!/pack/something/whatever.cacshdska'; my ($before, $after) = $string =~ /(...)\W.something.\.c(.*)/; say for $before, $after;` [download] Output is "!2!acshdska" while I need output to be "!2!ab!acshdska" sorry if I wasn't clear enough ...my bad.	[reply] [d/l]
Re^3: special pattern reading by choroba (Cardinal) on Jan 13, 2016 at 11:58 UTC
OK, I think I understand now. Or don't I? `#!/usr/bin/perl use warnings; use strict; use feature qw{ say }; for my $string ( '?!?!?!/pack/something/whatever.cacshdska', '!2!ab!!!!/pack/something/whatever.cacshdska', ) { my ($before, $after) = $string =~ m{(.)..\W/.\.c(.)}; say "$before \| $after"; }` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7*2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^4: special pattern reading by N0obieMonk (Novice) on Jan 13, 2016 at 12:42 UTC
that's it :D thank you a lot	[reply]