![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.1ベストアンサー
- 回答日時:
# もっと簡単に出来るかもしれませんがご参考まで。
# 不正な引数に対するエラー処理してません。
use strict;
my $foo = hoge(8,'a-zA-Z0-9');
print $foo;
sub hoge{
my $str_len = shift;
my $char_type = shift;
my @chars;
push @chars, ('a'..'z') if $char_type =~ /a-z/;
push @chars, ('A'..'Z') if $char_type =~ /A-Z/;
push @chars, (0..9) if $char_type =~ /0-9/;
my $rand_str = '';
$rand_str .= $chars[int(rand($#chars+1))] for (1..$str_len);
return $rand_str;
}
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Perl perlでリテラル値はメモリにどのように格納されているか? 1 2023/01/15 20:45
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/07/08 13:46
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- PostgreSQL 数値が定期的にあらわれる文字列から、いくつめに出現した数値が指定して切り出したい 1 2023/06/08 13:12
- JavaScript javascriptで文字分割は、 split() などメソッド不要??? 4 2023/02/06 22:50
- その他(コンピューター・テクノロジー) googleスプレッドシートでカッコ内の文字数をカウントしたい 1 2023/01/17 15:52
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Excel(エクセル) 【Excel】指定した文字列に該当する行を重複しないようにリスト 3 2022/03/30 12:27
- その他(プログラミング・Web制作) 2つのテキストファイルを比べて文字列を特定する方法を教えて下さい 5 2022/05/01 15:22
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Perlでのルート計算で、小数点...
-
VBAで旧字体を異字体に一括で変...
-
【vba】フォームに書いてあ...
-
文章の分割
-
「デバイスは PRN を初期化でき...
-
Perlソースコードをコンパイル...
-
VBA This Workbookモジュール...
-
モジュールとは何ですか
-
Cからシェルを起動し返り値をハ...
-
VBからブラウザの表示状態(リ...
-
Excel VBAでリンク切れをチェッ...
-
VBAProjectのモジュ...
-
エクセルVBAでシートモジュール...
-
Excel2000VBA 複数のテキストボ...
-
ASPが実行できない(エラー500
-
Excel VBA 定義されたプロージ...
-
perlのgrepで日本語の処理でエ...
-
例外処理のフローチャートの記...
-
エクセルVBAで標準モジュー...
-
Excel VBAで、ユーザーフォーム...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エラー
-
XML::XPathで日本語検索するには
-
perlスクリプト s/^\\s+//; ...
-
PerlでIPアドレスを取得する方法
-
実行時パラメータを使用するとE...
-
perl+shiftjisで5c文字化けの対...
-
「CGIプログラムエラー」って何...
-
フォームから送られてきた文字...
-
正規表現でのエラー
-
何時間後を求める。
-
Perl 教えてください。
-
windowsXP上で動作する最新版の...
-
UTF8でperlスクリプトを書くと...
-
メールフォームから大きめの添...
-
ActivePerl 1行入力で 'と"が...
-
ローカルテストOKのPerl サー...
-
perlでactive directoryに登録
-
Perlで長音
-
syntax OKなのに・・・
-
Pod::Usageで日本語を使用する...
おすすめ情報