hello,\ world lang:perl - Google Code Search

perl5/Pugs-Compiler-Perl6/lib/v6.pm - 1 identical

   272:     use v6-alpha;   273:     "hello, world".say;   274:

github.com/audreyt/pugs.git - Perl - Perl

perl/extras/perl/site_perl/JSON.pm - 72 identical

  1032:    JSON->new->allow_nonref->encode ("Hello, World!")  1033:    => "Hello, World!"  1034:

android-scripting.googlecode.com/hg/ - Perl - Perl

t/db.t

    42: my $hello = $db->eval('function(x) { return "hello, "+x; }', ["world"]);    43: is('hello, world', $hello, 'db eval');    44:

github.com/mongodb/mongo-perl-driver.git - Unknown - Perl

perl/src/ext/Test-Harness/t/yamlish.t - 94 identical

    15:       in   => [    16:           '--- Hello, World',    17:           '...',    18:       ],    19:       out => "Hello, World",    20:   },

    30:       '--- "Hello, World"',    31:       '...',    32:   ],    33:   out => "Hello, World",

android-scripting.googlecode.com/hg/ - Unknown - Perl

perl-5.12.1/dist/threads/threads.pm - 4 identical

   308:   my $thr3 = threads->create({'void' => 1},   309:                              sub { print("Hello, world\n"); });   310:   # Join the thread in void context (i.e., no return value)

ftp.funet.fi/pub/CPAN/src/latest.tar.bz2 - Unknown - Perl

mksh/src/check.t - 2 identical

  6259:   {  6260:           print 'Hello, World!\\\nă  ă  ă «ă ˇă ŻďĽ '  6261:           typeset -Uui16 i=0x100

  6301: expected-stdout:  6302:         00000000  48 65 6C 6C 6F 2C 20 57 - 6F 72 6C 64 21 5C 0A E3  |Hello, World!\..|  6303:         00000010  81 93 E3 82 93 E3 81 AB - E3 81 A1 E3 81 AF EF BC  |................|

  6327:   {  6328:           print 'Hello, World!\\\nă  ă  ă «ă ˇă ŻďĽ '  6329:           typeset -Uui16 i=0x100

android.git.kernel.org/platform/system/core.git - Unknown - Perl

Chipcard-CTAPI-0.2/CTAPI.pm - 1 identical

   948:   my $content = "Hello, world!\n";   949:   $ct->setData($content);

  1043: Example:  1044:     $ct->setData("Hello, world!\n");  1045:

  1078: Example 2:  1079:     $ct->setData("Hello, world!\n\000");  1080:     $ct->write(0, $ct->getDataLength);

  1434: Store "Hello, world" at the beginning of the card's memory:  1435:     $ct->setData("Hello, world");

search.cpan.org/CPAN/authors/id/W/WH/WHOM/Chipcard-CTAPI-0.2.tar.gz - Perl - Perl

perl-5.12.1/cpan/Module-Build/t/ppm.t - 7 identical

    43: #!perl -w    44: print "Hello, World!\n";    45: __END__

ftp.funet.fi/pub/CPAN/src/latest.tar.bz2 - Unknown - Perl

File-Remote-1.17/Remote.pm - 1 identical

  1028:   open(FILE, ">host:/remote/file") or die "Open failed: $!\n";  1029:   print FILE "Hello, world!\n";  1030:   close(FILE) or die "Close failed: $!\n";

cpan.org/authors/id/N/NW/NWIGER/File-Remote-1.17.tar.gz - Unknown - Perl

perl/src/t/op/sub_lval.t - 87 identical

   431: $str = "Hello, world!";   432: sub sstr : lvalue { substr($str, 1, 4) }

android-scripting.googlecode.com/hg/ - Unknown - Perl