[ create a new paste ] login | about

Project: perlkr
Link: http://perlkr.codepad.org/v99N9guf    [ raw code | output | fork | 2 comments ]

Perl, pasted on Jan 28:
1
2
3
4
5
6
7
8
9
10
11
use Text::Morse;

my $morse = new Text::Morse;
print scalar($morse->Decode("... --- ...")),"\n";
print scalar($morse->Encode("Adam Bertil")),"\n";

use Convert::Morse qw(as_ascii as_morse is_morsable);
print as_ascii('.... . .-.. .-.. ---  -- --- .-. ... .'),"\n"; # 'Helo Morse'
print as_morse('Perl?'),"\n";                # '.--. . .-. .-.. ..--..'
print "Yes!\n" if is_morsable('Helo Perl.'); # print "Yes!"
print map{ s/\./돈/g;s/-/쯔/g;$_; } as_morse('Perl?');


Output:
1
2
Can't locate Text/Morse.pm in @INC (@INC contains: /usr/lib/perl5/5.8.0/i486-linux /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i486-linux /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl .) at line 1.
BEGIN failed--compilation aborted at line 1.


Create a new paste based on this one


Comments:
posted by cms9993 on Jun 13
하늘
reply
posted by cms9993 on Jun 13
sexy
reply