#perl - Sat 17 Mar 2007 between 05:02 and 05:44



perlineHello there how can I find and delete with regexp?
SubStackeval: "bar foo baz bar bar rawr" =~ s/bar//g
buubotSubStack: Error: Can't modify constant item in substitution (s///) at eval line 2, at EOF
SubStackoh whoops
eval: my $str = "bar foo baz bar bar rawr"; $str =~ s/bar//g
buubotSubStack: 3
SubStackeval: my $str = "bar foo baz bar bar rawr"; $str =~ s/bar//g; $str
buubotSubStack: foo baz rawr
SubStackbleh, too late
GumbyBRAIN: too late
GumbyBRAINbut imo 0 is too late.
SubStack0 is too late
perlineyay thanks
actionsomian pops a few off SubStack
somianpops a few off SubStack
avarGumbyBRAIN: returt 0 but Late;
GumbyBRAINThe latter is possible, but we don't have to install digest::sha1 but get the value of $out is getting late.
SubStackGumbyBRAIN: if a robot has been very bad, does it go to dependency hell?
GumbyBRAINIt's not bad as a dependency?
perlineHeya :-) Now what am I screwing up on $outmail =~ s/((?i)an:)(\s*)(.*)//g; how does it have to look like right?
SubStack?
perlineI want to find "An: fddf\@dfdf" and just delete it and nothing more
cmonexseeyou all and thnaks for the help
SubStackperline: s/^An: .+\n$//m
perldoc perlretut is a good read too
perlineThank you... do you know how I can make it case insensitive?
actionCPAN upload: Language-Kemuri-0.02 by TOKUHIROM
CPANupload: Language-Kemuri-0.02 by TOKUHIROM
SubStack/i
perlineklah will not appear my $outmail = "Blah An:fddf\@dfdf klah";
$outmail =~ s/((?i)an:)(\s*)(.*)(\s*)//;
digitokWhat are you trying to do?
perlineI want to delete An: * from the string
digitokeval: my $outmail = "Blah An:fddf\@dfdf klah"; print $outmail,' // '; $outmail =~ s/((?i)an:)(\s*)(.*)(\s*)//; print $outmail;
buubotdigitok: Blah An:fddf@dfdf klah // Blah 1
digitokThat's what it does?
perlinedigitok: Whats different?
digitokIn what?
ShornOutThere!
=O
digitokwtf is (?!)
what's that gonna do

Page: 4 11 18 25 32 39 46 53 60 67 74 81 88 95 

IrcArchive