代码搜索：array
找到约 10,000 项符合「array」的源代码
代码结果 10,000
www.eeworm.com/read/279234/10452516
pl fig04_06.pl
#!/usr/bin/perl
# Fig. 4.6: fig04_06.pl
# Create an array by referring to nonexistent elements.
# Create @array with one element by referring to
# nonexistent element 0.
$array[ 0 ] = "happy";
www.eeworm.com/read/279234/10452529
pl fig04_14.pl
#!/usr/bin/perl
# Fig. 4.14: fig04_14.pl
# Binary search of an array.
# populate @array with the even integers from 0 to 28
for ( $i = 0; $i < 15; ++$i ) {
$array[ $i ] = 2 * $i;
}
#
www.eeworm.com/read/161095/10453178
c ssyr2.c
/* -- translated by f2c (version 19940927).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
*/
#include "f2c.h"
/* Subroutine */ int ssyr2_(char *uplo,
www.eeworm.com/read/161095/10453194
c dsyr2.c
/* -- translated by f2c (version 19940927).
You must link the resulting object file with the libraries:
-lf2c -lm (in that order)
*/
#include "f2c.h"
/* Subroutine */ int dsyr2_(char *uplo,
www.eeworm.com/read/279234/10453388
pl fig09_05.pl
#!usr/bin/perl
# Fig. 9.3: chopChomp.pl
# Using the chop and chomp functions
use warnings;
use strict;
print "Input something and we'll print it: ";
my $string = ;
print "\nOur inp
www.eeworm.com/read/279234/10453729
pl fig06_07.pl
#!/usr/bin/perl
# Fig 6.7: fig06_07.pl
# Demonstrating a subroutine that returns a scalar or a list.
# call scalarOrList() in list context to initialize @array,
# then print the list
@array =
www.eeworm.com/read/279234/10453785
pl fig15_21.pl
#!/usr/bin/perl
# Fig. 15.21: fig15_21.pl
# Program to delete a record from the database
use warnings;
use strict;
use DBI;
use DBD::ODBC;
my $dbh = DBI->connect( "dbi:ODBC:employeeDB", "",
www.eeworm.com/read/279234/10453813
pl fig15_20.pl
#!/usr/bin/perl
# Fig. 15.20: fig15_20.pl
# Program to insert a new record into the database.
use warnings;
use strict;
use DBI;
use DBD::ODBC;
my $dbh = DBI->connect( "dbi:ODBC:employeeDB"
www.eeworm.com/read/279234/10453876
pl fig13_12.pl
#!/usr/bin/perl
# Figure 13.12: fig13_12.pl
# Shows how to use two dimensional arrays.
use warnings;
use strict;
my @array;
foreach my $outer ( 0 .. 3 ) {
foreach my $inner ( 0 .. 3
www.eeworm.com/read/279234/10453920
pl fig13_11.pl
#!/usr/bin/perl
# Figure 13.11: fig13_11.pl
# Using ref inside a function
use strict;
use warnings;
my @array1 = ( "This","is","the","first","array." );
my @array2 = ( "This","is","the","sec