代码搜索：Programs
找到约 10,000 项符合「Programs」的源代码
代码结果 10,000
www.eeworm.com/read/279234/10453861
pl fig05_11.pl
#!/usr/bin/perl
# Fig. 5.11: fig05_11.pl
# Using block labels with next in nested looping structures.
OUTER: foreach $row ( 1 .. 10 ) {
INNER: foreach $column ( 1 .. 10 ) {
www.eeworm.com/read/279234/10453863
pl fig05_07.pl
#!/usr/bin/perl
# Fig. 5.7: fig05_07.pl
# Using the next statement in a foreach structure.
foreach ( 1 .. 10 ) {
if ( $_ == 5 ) {
$skipped = $_; # store skipped value
next;
www.eeworm.com/read/279234/10453867
pl fig13_05.pl
#!/usr/bin/perl
# Figure 13.5: fig13_05.pl
# Anonymous arrays and hashes
use warnings;
use strict;
my $array = [ qw( There was an old lady who lived in a shoe... ) ];
my $hash = { "I'm a" =
www.eeworm.com/read/279234/10453913
pl fig13_16.pl
#!/usr/bin/perl
# Figure 13.16: fig13_16.pl
# Two more ways of using typeglobs
use warnings;
use strict;
no strict 'vars';
$variable = 10;
@variable = ( 1, 2, 3, 4, 5 );
sub variable
{
www.eeworm.com/read/279234/10453925
pl fig13_21.pl
#!perl
# Figure 13.21: fig13_21.pl
# Use of references in CGI.pm
use strict;
use warnings;
use CGI::Pretty qw( :standard :html3 );
my @words = qw( and a few );
print header(),
start_
www.eeworm.com/read/279234/10453928
pl fig13_07.pl
#!/usr/bin/perl
# Figure 13.7: fig13_07.pl
# Interpolating function returns into a double quoted string.
use warnings;
use strict;
print( "The number is square( 5 ).\n" );
print( "The number
www.eeworm.com/read/279234/10453939
pl fig02_04.pl
#!/usr/bin/perl
# Fig. 2.4: fig02_04.pl
# A simple addition program
print "Please enter first number:\n";
$number1 = ;
chomp $number1;
print "Please enter second number:\n";
$number2
www.eeworm.com/read/279234/10453950
pl fig02_14.pl
#!/usr/bin/perl
# Fig. 2.14: fig02_14.pl
# Demonstrates the difference between pre- and postincrement
$c = 5;
$d = 5;
print $c, " "; # print 5
print $c++, " "; # print 5 th
www.eeworm.com/read/279234/10453954
pl fig02_03.pl
#!/usr/bin/perl
# Fig. 2.3: fig02_03.pl
# Prints a welcome statement in a variety of ways
print ( "1. Welcome to Perl!\n" );
print "2. Welcome to Perl!\n" ;
print "3. Welcome ", "to "
www.eeworm.com/read/353195/10464219
h mpeg2dec.h
/* mpeg2dec.h, MPEG specific defines */
/* Copyright (C) 1996, MPEG Software Simulation Group. All Rights Reserved. */
/*
* Disclaimer of Warranty
*
* These