代码搜索：Programs
找到约 10,000 项符合「Programs」的源代码
代码结果 10,000
www.eeworm.com/read/279234/10453376
pl fig09_14.pl
#!usr/bin/perl
# Fig. 9.11 formatStrings.pl
# Printing formatted characters and strings
use warnings;
use strict;
my $string = "I am a string";
my @arrayOfStrings = ( "An", 'array', "of stri
www.eeworm.com/read/279234/10453380
pl fig09_15.pl
#!usr/bin/perl
# Fig. 9.12: sprintf.pl
# Using sprintf
use warnings;
use strict;
my $product = "sweater";
my $price = 39;
my $line = sprintf "The %s costs \$%d\n.", $product, $price;
pri
www.eeworm.com/read/279234/10453436
pl fig14_21.pl
#!/usr/bin/perl
# Fig. 14.21: fig14_21.pl
# Interface with autoloaded date2.pm.
use Date2;
use strict;
use warnings;
my $today = new Date2;
$today->setDate( 2000, 7, 14 );
print $today->
www.eeworm.com/read/279234/10453563
pl fig08_10.pl
#!usr/bin/perl
# Fig 8.10: fig08_10.pl
# Testing the look behind assertion.
use strict;
use warnings;
my $string1 = "i be hungry.";
my $string2 = "we be here.";
my $string3 = "he be where?"
www.eeworm.com/read/279234/10453578
pl fig08_13.pl
#!usr/bin/perl
# Fig 8.13: fig08_13.pl
# Using the x modifier.
use strict;
use warnings;
my $string = "hello there. i am looking for a talking dog.";
print "$string\n";
$string =~ s/
www.eeworm.com/read/279234/10453608
html home.html
This is my home page.
This is my home page.
I enjoy programming, swimming, and dancing.
www.eeworm.com/read/279234/10453689
pl fig07_09.pl
#!/usr/bin/perl
# Fig 7.9: fig07_09.pl
# Demonstrates use of CGI.pm with HTML form.
use warnings;
use strict;
use CGI qw( :standard );
my $word = param( "word" );
print header(), start_ht
www.eeworm.com/read/279234/10453695
pl fig07_02.pl
#!/usr/bin/perl
# Fig 7.2: fig07_02.pl
# Displays the current date and time in a Web browser.
use warnings;
use strict;
print "Content-type: text/html\n\n";
print "Current
www.eeworm.com/read/279234/10453703
pl fig07_07.pl
#!/usr/bin/perl
# Fig 7.7: fig07_07.pl
# Demonstrates GET method with HTML form.
use warnings;
use strict;
use CGI qw( :standard );
our ( $name, $value ) = split( '=', $ENV{ QUERY_STRING } )