Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re^3: Can't remove directory-Permission denied (knot)

by Athanasius (Monsignor)
on Oct 22, 2012 at 16:42 UTC ( #1000382=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Can't remove directory-Permission denied (knot)
in thread Can't remove directory-Permission denied

I'm not unsure that it isn't impossible to avoid not including more negations without having to avoid a lack of not trying.

Clarity itself to a logician, certainly, but — on the offchance that some following along at home might need a little help — let Perl elucidate:

#! perl use strict; use warnings; my $str1 = "I'm not unsure that it isn't impossible to " . "avoid not including more negations without " . "having to avoid a lack of not trying."; my $str2 = $str1; my %negs = ("not un" => "", "it isn't im" => "it's ", "avoid not including" => "include", "without having to avoid" => "by", "a lack of not" => ""); # Collapse double negatives while (my ($key, $value) = each %negs) { $str2 =~ s/$key/$value/g; } # Remove extra spaces $str2 =~ s/\s+/ /g; # Display the translation print "$str1\n\n-->\n\n$str2\n";

(Is there anything Perl can’t do?)

Athanasius <°(((><contra mundum


Comment on Re^3: Can't remove directory-Permission denied (knot)
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1000382]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2014-08-30 12:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (293 votes), past polls