So far, everyone has described the "enlightened" way to do this. As in, they read your question, and came to the conclusion that you asked "how do I do X using Y?" and so they were telling you how to do X using X.
I'll go the other route this time. Let's say I haven't been enlightened (for whatever reason, the thought that these were octal didn't occur to me until it was pointed out, so we're not far from the truth here ;->). I would do the following:
This answers your question on how to get perl to write out all the characters for you. But it does seem a bit funny. So I'd go the next step:use strict; for my $i (101 .. 200) { my $a = '\\' . $i; my $val = eval qq{"$a"} || $@; print "$i = $val\n"; }
Now we're getting somewhere interesting. For example, I see that "199 => "\00199"," appears. And yet, I also see "177 => "\177",". At this point, I'd look up the documentation and, hopefully, find out what this really means, as is described by everyone else.use strict; my %data; for my $i (101 .. 200) { my $a = '\\' . $i; my $val = eval qq{"$a"} || $@; #print "$i = $val\n"; $data{$i} = $val; } use Data::Dumper; $Data::Dumper::Sortkeys = sub { [ sort { $a <=> $b } keys %{+shift} ] }; $Data::Dumper::Useqq = 1; print Dumper(\%data);
In reply to Re: Obfuscation or printing words like \160\162\151\156\164
by Tanktalus
in thread Obfuscation or printing words like \160\162\151\156\164
by jbrugger
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |