代码搜索：Programs
找到约 10,000 项符合「Programs」的源代码
代码结果 10,000
www.eeworm.com/read/279234/10452758
py fig27_01.py
# Figure 27.1: fig27_01.py
# A first program in Python
print "Welcome to Python!"
##########################################################################
# (C) Copyright 2001 by Deitel & A
www.eeworm.com/read/279234/10453146
pl fig20_13.pl
#!/usr/bin/perl
# Figure 20.13: fig20_13.pl
# Shows the efficiency of the Perl hashing algorithm.
use warnings;
use strict;
my %hash;
foreach ( 1 .. 100 ) {
$hash{ "key$_" } = $_;
www.eeworm.com/read/279234/10453259
pl fig11_05.pl
#!/usr/bin/perl
# Fig. 11.5: fig11_05.pl
# Renaming a file before accidental deletion
use warnings;
use strict;
if ( -e 'file.txt' ) {
print( "Do you want to write over file.txt? (yes or
www.eeworm.com/read/279234/10453307
pl fig10_04.pl
#!/usr/bin/perl
# Fig. 10.4: fig10_04.pl
# simple program that reads and echoes from a file
use strict;
use warnings;
open IN, "in.txt" or die "Can not open in.txt for reading : $!";
while
www.eeworm.com/read/279234/10453338
pl fig09_24.pl
#!usr/bin/perl
# Fig 9.21: regExEval.pl
# Using /e modifier to evaluate
use warnings;
use strict;
my $string = "Let us convert a word to uppercase.";
print "$string\n";
$string =~ s/(\bw\
www.eeworm.com/read/279234/10453395
pl fig09_22.pl
#!usr/bin/perl
# Fig. 9.19: zeroFlag.pl
# Printing with the 0 (zero) flag fills in leading zeros
use warnings;
use strict;
printf( "%+09d\n", 452 );
printf( "%09d", 452 );
#############
www.eeworm.com/read/279234/10453825
pl fig05_10.pl
#!/usr/bin/perl
# Fig. 5.10: fig05_10.pl
# Using block labels with next.
LOOP: for ( $number = 1; $number