The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
App-optex-pingu-1.03
River stage zero No dependents
/ App::optex::pingu

NAME

pingu - optex make-everything-pingu filter

VERSION

Version 1.03

SYNOPSIS

optex -Mpingu [ options -- ] command

DESCRIPTION

This optex module is greatly inspired by pingu(1) command and make every command pingu not only ping(1). As for original command, see "SEE ALSO" section. All honor for this idea should go to the original author.

This module is a quite good example to demonstrate optex(1) command features.

OPTION

--[no-]pingu

Produce images. Enabled by default.

--image=file

Set image file. File is searched at current directory and module directory. Standard pingu image is stored as pingu.asc2. If string pingu is specified, module search the file in the following order.

./pingu
./pingu.asc4
./pingu.asc2
./pingu.asc
module-dir/pingu
module-dir/pingu.asc4
module-dir/pingu.asc2
module-dir/pingu.asc
--interval=sec

Specifies the interval time in seconds between outputting each line. Default is 0.1 seconds.

IMAGE FILE FORMAT

ASCII (.asc)

Each [RGBCMYWKrgbcmywk] character is converted to specified letter with color which the character itself describe. Upper-case character represent normal ANSI color and lower-case means high-intensity color.

R  r  Red
G  g  Green
B  b  Blue
C  c  Cyan
M  m  Magenta
Y  y  Yellow
K  k  Black
W  w  White

Line start with # is treated as a comment.

pingu.asc:

 ...        .     ...   ..    ..     .........           
 ...     ....          ..  ..      ... .....  .. ..      
 ...    .......      ...         ... . ..... kkkkkkk     
.....  ........ .kkkkkkkkkkkkkkk.....  ... kkkkkkkkkk.  .
 .... ........kkkkkkkkkkkkkkkkkkkkk.  ... kkkkkkkkkkk    
      ....... kkwwwwkkkkkkkkkkkkkkkk.... kkkkkkkkkkkk    
.    .  .... kkwwkkwwkkkkkkkkkkwwwwkk... kkkkkkkkkkk     
   ..   ....kkkkwwwwkkrrrrrrkkwwkkwwk.. .kkkkkkkkkkk     
    .       kkkkkkkkrrrrrrrrrrkwwwwkk.   .kkkkkkkkkk     
   ....     .kkkkkkkkrrrrrrrrkkkkkkkk.      kkkkkkkk     
  .....      .  kkkkkkkkkkkkkkkkkkkk.        kkkkkkk.    
......     .. . kkkkkkkkkkkkkkkkkk . .      .kkkkkkk     
......       kkkkkkkkkkkkkkkkkkkkk  .      .kkkkkkk      
......   .kkkkkkkkkkkkkkkkkkyywwkkkkk  ..  kkkkkkk       
...    . kkkkkkkkkkkkkkkkywwwwwwwwwkkkkkkkkkkkkkk.       
       kkkkkkkkkkkkkkkkywwwwwwwwwwwwwkkkkkkkkk .         
      kkkkkkkkkkkkkkkywwwwwwwwwwwwwwwwkk    .            
     kkkkkkkkkkkkkkkywwwwwwwwwwwwwwwwwww  ........       
  .kkkkkkkkkkkkkkkkywwwwwwwwwwwwwwwwwwww    .........    
 .kkkkkkkkkkkkkkkkywwwwwwwwwwwwwwwwwwwwww       .... . .

ASCII2 (.asc2)

Each pixel is represented by two blocks, one in the upper half and one in the lower half, with each color represented by two lines of data.

pingu.asc2:

 ...    .......      ...         ... . .....  kkkkk      
 ...    .......      kkkkkkk     ... . ..... kkkkkkk     
.....  ........ . kkkkkkkkkkkkk .....  ...  kkkkkkkkk.  .
.....  ........ kkkkkkkkkkkkkkkkk....  ... kkkkkkkkkk.  .
 .... ........ kkkkkkkkkkkkkkkkkkk .  ... kkkkkkkkkkkk   
 .... ........kkkkkkkkkkkkkkkkkkkkk.  ... kkkkkkkkkkkk   
      ....... kkkwwkkkkkkkkkkkkkkkkk.... kkkkkkkkkkkkk   
      .......kkkwwwwkkkkkkkkkkkkkkkk.... kkkkkkkkkkkk    
.    .  .... kkwwKKwwkkkkkkkkkkkwwkkk...kkkkkkkkkkkkk    
.    .  ....kkkwwKKwwkkkkkkkkkkwwwwkk...kkkkkkkkkkkkk    
   ..   ....kkkkwwwwkkkkkkkkkkwwKKwwkk. .kkkkkkkkkkkk    
   ..   ....kkkkkwwkkkkrrrrkkkwwKKwwkk. .kkkkkkkkkkk     
    .       kkkkkkkkkrrrrrrrrkkwwwwkkk   .kkkkkkkkkk     
    .        kkkkkkkrrrrrrrrrrkkwwkkkk   . kkkkkkkkk     
   ....     .kkkkkkkrrrrrrrrrrkkkkkkk.      kkkkkkkk     
   ....     . kkkkkkkrrrrrrrrkkkkkkkk.      kkkkkkkk     
  .....      . kkkkkkkkrrrrkkkkkkkkk.        kkkkkkk.    
  .....      .  kkkkkkkkkkkkkkkkkkkk.        kkkkkkk.    
......     .. .  kkkkkkkkkkkkkkkkkk. .      .kkkkkkk     
......     .. . kkkkkkkkkkkkkkkkk  . .      .kkkkkk      
......        kkkkkkkkkkkkkkkkkkkk  .      .kkkkkkk      
......      kkkkkkkkkkkkkkkkkkkkkkk .      .kkkkkkk      
......   . kkkkkkkkkkkkkkkkkyyykkkkk   ..  kkkkkkk       
......   .kkkkkkkkkkkkkkkkyyyWWWWkkkk  .. kkkkkkkk       
...    . kkkkkkkkkkkkkkkkyyWWWWWWWkkkkk  kkkkkkkk.       
...    .kkkkkkkkkkkkkkkkyyWWWWWWWWWkkkkkkkkkkkkk .       
       kkkkkkkkkkkkkkkkyyWWWWWWWWWWWkkkkkkkkkk .         
       kkkkkkkkkkkkkkkyyWWWWWWWWWWWWWkkkkkkkk  .         
      kkkkkkkkkkkkkkkyyWWWWWWWWWWWWWWWkkkkk .            
     kkkkkkkkkkkkkkkkyWWWWWWWWWWWWWWWWWkk   .

ASCII4 (.asc4)

Each pixel is made by four blocks, with each color represented by 2x2 characters.

pingu.asc4:

............            kkkkkkkkkkkkkk          ......  ..  ..........   k
............  ..  kkkkkkkkkkkkkkkkkkkkkkkkkk  ..........    ......    kkkk
............  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk........    ......  kkkkkk
..........  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk  ..    ......  kkkkkkkk
..........kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk..    ...... kkkkkkkkk
........ kkkkkkwwwwwwkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk........  kkkkkkkkkk
........kkkkkwwwwwwwwwwkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk....... kkkkkkkkkkk
...... kkkkkwwwwKKKKwwwwkkkkkkkkkkkkkkkkkkkkkwwwwwwkkkkk......kkkkkkkkkkkk
......kkkkkkwwwwKKKKwwwwkkkkkkkkkkkkkkkkkkkwwwwwwwwwwkkkk.....kkkkkkkkkkkk
......kkkkkkkwwwwwwwwwwkkkkkkkkkkkkkkkkkkkwwwwKKKKwwwwkkk ..  .kkkkkkkkkkk
......kkkkkkkkkwwwwwwkkkkkkkrrrrrrrrkkkkkkwwwwKKKKwwwwkkkk..  ..kkkkkkkkkk
       kkkkkkkkkkkkkkkkkrrrrrrrrrrrrrrrrkkkwwwwwwwwwwkkkkk      ..kkkkkkkk
       kkkkkkkkkkkkkkkrrrrrrrrrrrrrrrrrrrrkkkwwwwwwkkkkkkk      ..  kkkkkk
      ..kkkkkkkkkkkkkkrrrrrrrrrrrrrrrrrrrrkkkkkkkkkkkkkkk.           kkkkk
      ..  kkkkkkkkkkkkkkrrrrrrrrrrrrrrrrkkkkkkkkkkkkkkkk..            kkkk
        ..  kkkkkkkkkkkkkkkkrrrrrrrrkkkkkkkkkkkkkkkkkkk.               kkk
        ..    kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk ..                kk
    ....  ..    kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk ..  ..            ..kk
    ....  .. kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk    ..  ..            .kkk
          kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk    ..            .. kkk
       kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk  ..            ..kkkk
..  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkyyyyyykkkkkkkkkk      ....     kkkkk
..kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkyyyyyyWWWWWWWWkkkkkkkkk   ....   kkkkkkk
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkyyyyWWWWWWWWWWWWWWkkkkkkkkkk     kkkkkkkkk
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkyyyyWWWWWWWWWWWWWWWWWWkkkkkkkkkkkkkkkkkkkkkk
kkkkkkkkkkkkkkkkkkkkkkkkkkkkyyyyWWWWWWWWWWWWWWWWWWWWWWkkkkkkkkkkkkkkkkkkkk
kkkkkkkkkkkkkkkkkkkkkkkkkkyyyyWWWWWWWWWWWWWWWWWWWWWWWWWWkkkkkkkkkkkkkkkk  
kkkkkkkkkkkkkkkkkkkkkkkkkyyyWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWkkkkkkkkkkk ..  
kkkkkkkkkkkkkkkkkkkkkkkkyyyWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWkkkkkk    ..  
kkkkkkkkkkkkkkkkkkkkkkkyyyWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWkkk  ........

Coloring is done by Term::ANSIColor::Concise module. See its document for detail.

INSTALL

Use cpanminus(1) command:

cpanm App::optex::pingu

PINGU ALIAS

You can set shell alias pingu to call ping(1) command through optex.

alias pingu='optex -Mpingu --pingu ping'

However, there is more sophisticated way to use optex alias function. Next command will make symbolic link pingu->optex in ~/.optex.d/bin directory:

$ optex --ln pingu

Executing this symbolic link, optex will call system installed pingu command. So make an alias in ~/.optex.d/config.toml to call ping(1) command instead:

[alias]
    pingu = "ping -Mpingu"

MAKING NEW PING OPTION

You can add, say, --pingu option to the original ping(1) command. Make a symbolic link ping->optex in ~/.optex.d/bin directory:

$ optex --ln ping

And create an rc file ~/.optex.d/ping.rc for ping:

option --pingu -Mpingu

Then pingu will show up when you use --pingu option to execute ping(1) command:

$ ping --pingu localhost -c15

If you want to enable this option always (really?), put next line in your ~/.optex.d/ping.rc:

option default --pingu

SEE ALSO

https://github.com/sheepla/pingu

App::optex, https://github.com/kaz-utashiro/optex/

App::optex::pingu, https://github.com/kaz-utashiro/optex-pingu/

ARTICLES

https://qiita.com/kaz-utashiro/items/abb436d7df349fe84e69

AUTHOR

Kazumasa Utashiro

LICENSE

Copyright ©︎ 2022-2024 Kazumasa Utashiro.

You can redistribute it and/or modify it under the same terms as Perl itself.