1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#!/usr/bin/perl
use IO::File;
use lib "lib/space dir";
use MtdExport qw{ immtd };
my $scalar1 = IO::File->new();
# astart scalar instance
#$scalar1->
# aend include: ioctl seek fcntl
# ahelp ioctl : ^ ioctl \s is \s Method \s of \s IO::
my @arr1;
$arr1[0] = IO::File->new();
# astart array instance
#$arr1[0]->
# aend include: ioctl seek fcntl
my %hash1;
$hash1{key1} = IO::File->new();
# astart hash scalar instance
#$hash1{key1}->
# aend include: ioctl seek fcntl
$hash1{key2} = \@arr1;
# astart hash array instance
#$hash1{key2}->[0]->
# aend include: ioctl seek fcntl
my $scalar2 = \%hash1;
# astart reference instance
#$scalar2->{key1}->
# aend include: ioctl seek fcntl
# astart import instance
#immtd->
# aend include: accept listen
foreach my $io ( @arr1 ) {
# astart loop var instance
#$io->
# aend include: ioctl seek fcntl
}
# hstart instance method
#$scalar2->{key1}->ioctl
# hend ^ ioctl \s is \s Method \s of \s IO::
# mstart instance method
#$scalar2->{key1}->ioctl
# mend ^ NAME: \s ioctl $
# mend ^ FILE: \s .+ /IO/ .+ $
# mend ^ LINE: \s \d+ $
# mend ^ COL: \s \d+ $
|
