Help language development. Donate to The Perl Foundation

LN zef:raku-community-modules last updated on 2022-05-25

d493f51808af27f26b69e5cf10bd64ba5e27d040/

NAME

LN - Get $ARGFILES with line numbers via $LN

SYNOPSIS

perl  -wlnE   'say "$.:$_"; close ARGV if eof' foo bar # Perl
raku -MLN -ne 'say "$*LN:$_"'                  foo bar # Raku

$ echo -e "a\nb\nc" > foo
$ echo -e "d\ne"    > bar

$ raku -MLN -ne 'say "$*LN:$_"' foo bar
1:a
2:b
3:c
1:d
2:e

$ raku -ne 'use LN "no-reset"; say "$*LN:$_"' foo bar
1:a
2:b
3:c
4:d
5:e

DESCRIPTION

Mixes in IO::CatHandle::AutoLines) into $*ARGFILES which provides an .ln method containing current line number of the current handle (or total line number if 'no-reset' option was passed to use). For ease of access to that method $*LN dynamic variable containing its value is available.

EXPORTED TERMS

$*LN

Contains same value as $*ARGFILES.lnhttps://raku.land/zef:raku-community-modules/IO::CatHandle::AutoLines#synopsis| which is a method exported by IO::CatHandle::AutoLines that gives the current line number of the handle.

By default, the line number will get reset on each new file in $*ARGFILES. If you wish it to not reset, pass "no-reset" positional argument to the use line:

use LN 'no-reset';

=head1 EXPORTED TYPES

=head2 role IO::CatHandle::AutoLines

Exports L<C<IO::CatHandle::AutoLines>|https://raku.land/zef:raku-community-modules/IO::CatHandle::AutoLines>
role, for you to use, if needed.

AUTHOR

Zoffix Znet

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.