メモとかメモのようなものとか（By ルーキーの中のひと） - development:language:perl:module

Acme::EyeDrops

Anonymous (anonymous@undisclosed.example.com) — 2017-04-14T05:21:33+00:00

Acme::EyeDrops 難読化？なんですか？バカですか？例 hello word をvisualizeする.........X-( print sightly( { Shape => 'uml,window', Gap => 1, SourceFile => 'helloworld.pl', Regex => 1 } );

File::Next

Anonymous (anonymous@undisclosed.example.com) — 2017-04-14T05:21:33+00:00

File::Next File検索用指定以下を再帰的に検索してくれる例一覧を表示する use strict; use warnings; use 5.010; use utf8; use File::Next; my $path = 'c:/users/public/music' ; my $files = File::Next::everything($path); while ( defined ( my $file =$files->()) ) { say $file; }

Getopt::Long

Anonymous (anonymous@undisclosed.example.com) — 2017-04-14T05:21:33+00:00

Getopt::Long 高機能なコマンドラインオプション解析指定 use Getopt::Long qw(:config posix_default no_ignore_case gnu_compat); 参考ここをみれば、こんなページはいらないでしょう。:-) Getopt::Long - 高機能なコマンドラインオプション解析 Perlでコマンドラインオプションの解析に Getopt::Long を使う時、絶対に忘れてはいけない引数 2013年のGetopt::Long

Net::MySQL

Anonymous (anonymous@undisclosed.example.com) — 2017-04-14T05:21:33+00:00

Net::MySQL Perlだけで書かれたMySQLネットワークプロトコルへのインターフェイスインストール cpanm Net::MySQL 概要 use Net::MySQL; my $mysql = Net::MySQL->new( hostname => 'mysql.example.jp', database => 'your_database_name', user => 'user', password => 'password' ); # INSERT の例 $mysql->query(q{ INSERT INTO tablename (first, next) VALUES ('Hello', 'World') }); printf "Affected row: %d\n", $mysql->get_affected_rows_length; # SELECT の例 $mysql->query(q{SELECT * FROM tablename}); my $record_set = $mysql->cr…

Net::OpenSSH

Anonymous (anonymous@undisclosed.example.com) — 2017-04-14T05:21:33+00:00

Net::OpenSSH Perl で ssh 接続例 StrictHostKeyChecking=no は既知でないhostに接続する場合のエラーを抑制します。 # コネクト $ssh = Net::OpenSSH->new( 'hostname' ,(user => 'username',password => 'Passw0rd') , master_opts => [-o => "StrictHostKeyChecking=no"] ); # 結果表示 say $ssh->capture('cat /etc/redhat-release'); # コマンド結果をキャプチャ my @ls = $ssh->capture("ls"); $ssh->error and die "remote ls command failed: " . $ssh->error;…

Pod::Usage

Anonymous (anonymous@undisclosed.example.com) — 2017-04-14T05:21:33+00:00

Pod::Usage 埋め込まれた pod ドキュメントから usage メッセージを表示参考 Perlの Getopt::Long と Pod::Usage を使ってみた

String::Random

Anonymous (anonymous@undisclosed.example.com) — 2017-04-14T05:21:33+00:00

String::Random ランダムな文字列を生成例 use String::Random; my $sr = String::Random->new(); # 英数字8文字 my $str = $sr->randregex('[a-zA-Z0-9]{8}'); print $str, "\n"; # 8文字以上16文字以下 my $str2 = $sr->randregex('.{8,16}'); print $str2, "\n";