Lines Matching refs:Opt
7 my %Opt; getopts("ChH:e:f:t:s:pPv", \%Opt);
8 $Opt{p} ||= $Opt{P};
9 $Opt{e} ||= 'utf8';
10 $Opt{f} ||= $Opt{e};
11 $Opt{t} ||= $Opt{e};
12 $Opt{h} and help();
15 my $CPL = $Opt{p} ? 64 : 8;
17 my $linesperheading = $Opt{H};
21 $Opt{h} and help();
22 $Opt{p} and do_perl($Opt{s});
23 do_dump($Opt{s});
30 $Opt{P} and print "#!$^X -w\nprint\n";
34 $linebuf .= Encode::decode($Opt{f}, $_);
66 print '"', encode($Opt{t}, $outbuf), '"';
67 my $tail = $Opt{P} ? $end ? "$end" : "," : '';
74 !$Opt{p} and exists $Opt{H} and print_H();
78 $linebuf .= Encode::decode($Opt{f}, $_);
82 $Opt{H} and $linenum % $Opt{H} == $CPL-1 and print_S();
90 $Opt{H} and $linenum % $Opt{H} == $CPL-1 and print_S();
98 if ($Opt{C}){
105 if ($Opt{C}){
114 if (!$Opt{v} and $chunk eq $PrevChunk){
126 $Opt{C} and push @chr, render_c($chr);
134 $Opt{C} and $line .= sprintf " | %s", join('', @chr);
135 print encode($Opt{t}, $line), "\n";