代码搜索：Scan
找到约 10,000 项符合「Scan」的源代码
代码结果 10,000
www.eeworm.com/read/192449/5156072
scan
#! /usr/bin/perl
# Scan a file for a 32-bit word with a particular value.
# $Revision: 1.1 $
use strict qw(refs vars);
use FileHandle;
my $filename = shift @ARGV;
my $word_value = shift @ARGV;
((d
www.eeworm.com/read/192449/5156222
scan
#! /usr/bin/perl
# Scan a file for a 32-bit word with a particular value.
# $Revision: 1.1 $
use strict qw(refs vars);
use FileHandle;
my $filename = shift @ARGV;
my $word_value = shift @ARGV;
((d
www.eeworm.com/read/273778/4191776
scan
#! /usr/bin/perl
# Scan a file for a 32-bit word with a particular value.
# $Revision: 1.1 $
use strict qw(refs vars);
use FileHandle;
my $filename = shift @ARGV;
my $word_value = shift @ARGV;
((d
www.eeworm.com/read/273778/4191896
scan
#! /usr/bin/perl
# Scan a file for a 32-bit word with a particular value.
# $Revision: 1.1 $
use strict qw(refs vars);
use FileHandle;
my $filename = shift @ARGV;
my $word_value = shift @ARGV;
((d
www.eeworm.com/read/273778/4192005
scan
#! /usr/bin/perl
# Scan a file for a 32-bit word with a particular value.
# $Revision: 1.1 $
use strict qw(refs vars);
use FileHandle;
my $filename = shift @ARGV;
my $word_value = shift @ARGV;
((d
www.eeworm.com/read/273778/4192124
scan
#! /usr/bin/perl
# Scan a file for a 32-bit word with a particular value.
# $Revision: 1.1 $
use strict qw(refs vars);
use FileHandle;
my $filename = shift @ARGV;
my $word_value = shift @ARGV;
((d
www.eeworm.com/read/273778/4192242
scan
#! /usr/bin/perl
# Scan a file for a 32-bit word with a particular value.
# $Revision: 1.1 $
use strict qw(refs vars);
use FileHandle;
my $filename = shift @ARGV;
my $word_value = shift @ARGV;
((d
www.eeworm.com/read/273778/4192341
scan
#! /usr/bin/perl
# Scan a file for a 32-bit word with a particular value.
# $Revision: 1.1 $
use strict qw(refs vars);
use FileHandle;
my $filename = shift @ARGV;
my $word_value = shift @ARGV;
((d
www.eeworm.com/read/273778/4192491
scan
#! /usr/bin/perl
# Scan a file for a 32-bit word with a particular value.
# $Revision: 1.1 $
use strict qw(refs vars);
use FileHandle;
my $filename = shift @ARGV;
my $word_value = shift @ARGV;
((d
www.eeworm.com/read/384760/2598049
scan
#!/usr/local/bin/perl
my $ignore_re = '^(' . join("|",
qw(
_
[a-z]
DBM
DBC
DB_AM_
DB_BT_
DB_RE_
DB_HS_
DB_FUNC_
DB_DBT_
DB_DBM
DB_TSL
MP
TXN
DB_TXN_GETPG