ppt
view release on metacpan or search on metacpan
# INPUT
while (<>) {
# chop trailing characters not followed by a linefeed of any kind
if ($opt_t) {
$_ =~ s/^(.*(?:\x0A|\e$re[0])|).*$/$1/sxo;
}
my @chars = split m//;
my $i;
for ($i=0; $i<=$#chars; ++$i) {
my $c = $chars[$i];
if ($c eq "\x1B" or $c eq "\x0B") {
if ($c eq "\x0B" or $chars[++$i] =~ /$re[1]/xo) {
# reverse line feed
$row -= 2;
$row >= 0 or $row = 0;
Use the first character of I<string> as the field delimiter character
instead of the tab character.
=item -f list
The I<list> specifies fields, delimited in the input by a single tab
character. Output fields are separated by a single tab character.
=item -n
Do not split multi-byte characters.
=item -s
Suppresses lines with no field delimiter characters. Unless
specified, lines with no delimiters are passed through unmodified.
=back
=head1 BUGS
html/commands/col/col.rjk view on Meta::CPAN
# INPUT
while (<>) {
# chop trailing characters not followed by a linefeed of any kind
if ($opt_t) {
$_ =~ s/^(.*(?:\x0A|\e$re[0])|).*$/$1/sxo;
}
my @chars = split m//;
my $i;
for ($i=0; $i<=$#chars; ++$i) {
my $c = $chars[$i];
if ($c eq "\x1B" or $c eq "\x0B") {
if ($c eq "\x0B" or $chars[++$i] =~ /$re[1]/xo) {
# reverse line feed
$row -= 2;
$row >= 0 or $row = 0;
html/commands/cut/cut.hewgill view on Meta::CPAN
The options are as follows:
-B<b> I<list> The I<list> specifies byte positions.
-B<c> I<list> The I<list> specifies character positions.
-B<d> I<string> Use the first character of I<string> as the field delimiter character instead of the tab character.
-B<f> I<list> The I<list> specifies fields, delimited in the input by a single tab character. Output fields are separated by a single tab character.
-B<n> Do not split multi-byte characters.
-B<s> Suppresses lines with no field delimiter characters. Unless specified, lines with no delimiters are passed through unmodified.
The cut utility exits 0 on success or 1 if an error occurred.
=head1 BUGS
Bytes and characters are treated identically. No support is provided for multi-byte character sets.
=head1 AUTHOR
html/commands/cut/cut.hewgill.html view on Meta::CPAN
<p>-<b>b</b> <i>list</i> The <i>list</i> specifies byte positions.</p>
<p>-<b>c</b> <i>list</i> The <i>list</i> specifies character positions.</p>
<p>-<b>d</b> <i>string</i> Use the first character of <i>string</i> as the field delimiter character instead of the tab character.</p>
<p>-<b>f</b> <i>list</i> The <i>list</i> specifies fields,
delimited in the input by a single tab character.
Output fields are separated by a single tab character.</p>
<p>-<b>n</b> Do not split multi-byte characters.</p>
<p>-<b>s</b> Suppresses lines with no field delimiter characters.
Unless specified,
lines with no delimiters are passed through unmodified.</p>
<p>The cut utility exits 0 on success or 1 if an error occurred.</p>
<h1><a class='u' href='#___top' title='click to go to top of document'
name="BUGS"
>BUGS</a></h1>
html/commands/cut/cut.lafferty view on Meta::CPAN
Use the first character of I<string> as the field delimiter character
instead of the tab character.
=item -f list
The I<list> specifies fields, delimited in the input by a single tab
character. Output fields are separated by a single tab character.
=item -n
Do not split multi-byte characters.
=item -s
Suppresses lines with no field delimiter characters. Unless
specified, lines with no delimiters are passed through unmodified.
=back
=head1 BUGS
html/commands/cut/cut.lafferty.html view on Meta::CPAN
<dt><a name="-f_list"
>-f list</a></dt><p class="pad"></p>
<dd>The <i>list</i> specifies fields,
delimited in the input by a single tab character.
Output fields are separated by a single tab character.</dd><p class="pad"></p>
<dt><a name="-n"
>-n</a></dt><p class="pad"></p>
<dd>Do not split multi-byte characters.</dd><p class="pad"></p>
<dt><a name="-s"
>-s</a></dt><p class="pad"></p>
<dd>Suppresses lines with no field delimiter characters.
Unless specified,
lines with no delimiters are passed through unmodified.</dd><p class="pad"></p>
</dl>
<h1><a class='u' href='#___top' title='click to go to top of document'
src/col/col.rjk view on Meta::CPAN
# INPUT
while (<>) {
# chop trailing characters not followed by a linefeed of any kind
if ($opt_t) {
$_ =~ s/^(.*(?:\x0A|\e$re[0])|).*$/$1/sxo;
}
my @chars = split m//;
my $i;
for ($i=0; $i<=$#chars; ++$i) {
my $c = $chars[$i];
if ($c eq "\x1B" or $c eq "\x0B") {
if ($c eq "\x0B" or $chars[++$i] =~ /$re[1]/xo) {
# reverse line feed
$row -= 2;
$row >= 0 or $row = 0;
src/cut/cut.hewgill view on Meta::CPAN
The options are as follows:
-B<b> I<list> The I<list> specifies byte positions.
-B<c> I<list> The I<list> specifies character positions.
-B<d> I<string> Use the first character of I<string> as the field delimiter character instead of the tab character.
-B<f> I<list> The I<list> specifies fields, delimited in the input by a single tab character. Output fields are separated by a single tab character.
-B<n> Do not split multi-byte characters.
-B<s> Suppresses lines with no field delimiter characters. Unless specified, lines with no delimiters are passed through unmodified.
The cut utility exits 0 on success or 1 if an error occurred.
=head1 BUGS
Bytes and characters are treated identically. No support is provided for multi-byte character sets.
=head1 AUTHOR
src/cut/cut.lafferty view on Meta::CPAN
Use the first character of I<string> as the field delimiter character
instead of the tab character.
=item -f list
The I<list> specifies fields, delimited in the input by a single tab
character. Output fields are separated by a single tab character.
=item -n
Do not split multi-byte characters.
=item -s
Suppresses lines with no field delimiter characters. Unless
specified, lines with no delimiters are passed through unmodified.
=back
=head1 BUGS
util/lib/PPT/Util.pm view on Meta::CPAN
sub copy_cmd_src {
my ($contrib, $basename) = &_cmd_contrib;
return unless @{$contrib};
foreach ( @{$contrib} ) {
mkdir "$HTML/commands/$basename";
io("$SRC/$basename/$_->{name}") > io("$HTML/commands/$basename/$_->{name}");
if ( $_->{support} ) {
io("$SRC/$basename/$_") > io("$HTML/commands/$basename/$_")
for split m/\s+/, $_->{support};
}
}
}
sub copy_v7doc {
my $cmd = shift;
croak "Requires command" unless $cmd;
config_read unless $CFG;
my ($basename) = $cmd =~ /(.+)\.\d+/;
( run in 0.681 second using v1.01-cache-2.11-cpan-5511b514fd6 )