view release on metacpan or  search on metacpan

Examples/addpclt.pl  view on Meta::CPAN

7
8
9
10
11
12
13
14
15
16
17
 
require 'ttfmod.pl';
use Getopt::Std;
do getopts("d:z");
 
$[ = 0;
if ((defined $opt_d && !defined $ARGV[0]) || (!defined $opt_d && !defined $ARGV[1]))
    {
    die 'ADDPCLT [-d directory] [-z] <infile> <outfile>
 
v1.0.0, 18-Mar-1998  (c) Martin_Hosken@sil.org

 view release on metacpan or  search on metacpan

lib/Fuckin/Lazy.pm  view on Meta::CPAN

37
38
39
40
41
42
43
44
45
46
47
48
49
50
my @lines;
while (my $line = <$fh>) {
    if ($line =~ m/(LAZY|Fuckin'Lazy|Fuckin::Lazy)\s*\(/) {
        my $match = $1;
        croak "$1() must be called with parentheses, and must be given a scalar variable for an arg."
            unless $line =~ m/$match\(\s*\$[0-9A-Za-z_]+\s*\)/;
 
        my $data = produce_data($struct, $line, $match);
        $line =~ s/$match\(\s*\$[0-9A-Za-z_]+\s*\)/$data/;
    }
    push @lines => $line;
}
 
close($fh);

 view release on metacpan or  search on metacpan

lib/Egbk.pm  view on Meta::CPAN

6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162
        $slash = 'div';
        return $1;
    }
    #                $ $ $ $ $ $ $ $ $ $ $ $ $ $
    #                $ @ # \ ' " / ? ( ) [ ] < >
    elsif (/\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
        $slash = 'div';
        return $1;
    }
 
# while (<FILEHANDLE>)

lib/Egbk.pm  view on Meta::CPAN

7694
7695
7696
7697
7698
7699
7700
7701
7702
7703
7704
            $e_string .= $1;
            $slash = 'div';
        }
        #                           $ $ $ $ $ $ $ $ $ $ $ $ $ $
        #                           $ @ # \ ' " / ? ( ) [ ] < >
        elsif ($string =~ /\G ( \$[\$\@\#\\\'\"\/\?\(\)\[\]\<\>] ) /oxmsgc) {
            $e_string .= $1;
            $slash = 'div';
        }
 
# subroutines of package Egbk

 view release on metacpan or  search on metacpan

lib/Games/AIBot.pm  view on Meta::CPAN

119
120
121
122
123
124
125
126
127
128
129
if ($count++ > 100) {
    warn "recursion too deep";
    return;
}
 
if ($line =~ /^\$[{\w]/) {
    $bot->cond($line);
}
elsif ($line =~ /^(?:else|elsif)[\s\t]/) {
    $bot->endif();
}

 view release on metacpan or  search on metacpan

lib/Games/Axmud/Obj/Telnet.pm  view on Meta::CPAN

623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
    $fh = "";
}
elsif (&_is_open_fh($name)) {  # input arg is an open fh
    ## Use the open fh for logging.
    $fh = $name;
    select((select($fh), $|=1)[$[]);  # don't buffer writes
}
elsif (!ref $name) {  # input arg is filename
    ## Open the file for logging.
    $fh = &_fname_to_handle($self, $name)
    or return;
    select((select($fh), $|=1)[$[]);  # don't buffer writes
}
else {
    return $self->error("bad Dump_log argument ",
            "\"$name\": not filename or open fh");
}

lib/Games/Axmud/Obj/Telnet.pm  view on Meta::CPAN

782
783
784
785
786
787
788
789
790
791
792
## Restore our private data.
*$self->{net_telnet} = $s;
 
## Re-initialize ourself.
select((select($self), $|=1)[$[]);  # don't buffer writes
$s = *$self->{net_telnet};
$s->{blksize} = &_optimal_blksize((stat $self)[11]);
$s->{buf} = "";
$s->{eofile} = '';
$s->{errormsg} = "";

lib/Games/Axmud/Obj/Telnet.pm  view on Meta::CPAN

1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
    $fh = "";
}
elsif (&_is_open_fh($name)) {  # input arg is an open fh
    ## Use the open fh for logging.
    $fh = $name;
    select((select($fh), $|=1)[$[]);  # don't buffer writes
}
elsif (!ref $name) {  # input arg is filename
    ## Open the file for logging.
    $fh = &_fname_to_handle($self, $name)
    or return;
    select((select($fh), $|=1)[$[]);  # don't buffer writes
}
else {
    return $self->error("bad Input_log argument ",
            "\"$name\": not filename or open fh");
}

lib/Games/Axmud/Obj/Telnet.pm  view on Meta::CPAN

1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
    return $self->error("problem connecting to \"$host\", ",
                "port $port: $errno");
    };
}
 
select((select($self), $|=1)[$[]);  # don't buffer writes
$s->{blksize} = &_optimal_blksize((stat $self)[11]);
$s->{buf} = "";
$s->{eofile} = '';
$s->{errormsg} = "";
vec($s->{fdmask}='', fileno($self), 1) = 1;

lib/Games/Axmud/Obj/Telnet.pm  view on Meta::CPAN

1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
    $fh = "";
}
elsif (&_is_open_fh($name)) {  # input arg is an open fh
    ## Use the open fh for logging.
    $fh = $name;
    select((select($fh), $|=1)[$[]);  # don't buffer writes
}
elsif (!ref $name) {  # input arg is filename
    ## Open the file for logging.
    $fh = &_fname_to_handle($self, $name)
    or return;
    select((select($fh), $|=1)[$[]);  # don't buffer writes
}
else {
    return $self->error("bad Option_log argument ",
            "\"$name\": not filename or open fh");
}

lib/Games/Axmud/Obj/Telnet.pm  view on Meta::CPAN

1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
    $fh = "";
}
elsif (&_is_open_fh($name)) {  # input arg is an open fh
    ## Use the open fh for logging.
    $fh = $name;
    select((select($fh), $|=1)[$[]);  # don't buffer writes
}
elsif (!ref $name) {  # input arg is filename
    ## Open the file for logging.
    $fh = &_fname_to_handle($self, $name)
    or return;
    select((select($fh), $|=1)[$[]);  # don't buffer writes
}
else {
    return $self->error("bad Output_log argument ",
            "\"$name\": not filename or open fh");
}