The stupid question is the question not asked | |
PerlMonks |
Macphisto's scratchpadby Macphisto (Hermit) |
on Jun 03, 2004 at 19:12 UTC ( [id://360374]=scratchpad: print w/replies, xml ) | Need Help?? |
<Petruchio> #!/usr/bin/perl -l <Petruchio> use strict; <Petruchio> use warnings; <Petruchio> $, = "\n"; <Petruchio> print grep { -e } <Petruchio> map { my $i = $_; map {"$_/$i.pm"} @INC } <Petruchio> grep { s!::!/!g; s/.pm$//; 1 } <Petruchio> @ARGV; <Petruchio> #!/usr/bin/ruby <Petruchio> ARGV.each { |i| $:.each { |j| puts Dir"#{j}/#{i}.rb" } } ========================================================== Initial: 0000000 54 41 47 43 61 72 20 4c 61 6e 67 75 61 67 65 00 0000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0000040 00 47 75 69 64 65 64 20 42 79 20 56 6f 69 63 65 0000060 73 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 0000100 6e 69 76 65 72 73 61 6c 20 54 72 75 74 68 73 20 0000120 61 6e 64 20 43 79 63 6c 65 73 00 00 00 30 00 00 0000140 00 43 72 65 61 74 65 64 20 62 79 20 47 72 69 70 0000160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 11 0000200 After editing in xmms: scott@Bean:~/Code/C/Mp3Rating/Code/tests$ tail -c 128 /home/scott/mp3/Guided\ by\ Voices/Universal\ Truthes\ and\ Cycles/Guided\ By\ Voices\ -\ Universal\ Truths\ And\ Cycles\ -\ 15\ -\ Car\ Language.mp3 | od -t x1 - 0000000 54 41 47 43 61 72 20 4c 61 6e 67 75 61 67 65 20 0000020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000040 20 47 75 69 64 65 64 20 42 79 20 56 6f 69 63 65 0000060 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 0000100 6e 69 76 65 72 73 61 6c 20 54 72 75 74 68 73 20 0000120 61 6e 64 20 43 79 63 6c 65 73 20 20 20 32 30 30 0000140 32 43 72 65 61 74 65 64 20 62 79 20 47 72 69 70 0000160 20 20 20 20 20 20 20 20 20 20 20 20 20 00 0f 11 0000200 |
|