perl
をテンプレートにして作成
[
トップ
] [
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
#contents
-[[PDF編集>perlでPDF編集]]
** Jcode.pm で半角英数字を全角英数字に変換する [#w3cb0861]
use Jcode;
$a = "abc";
$a = jcode($a)->tr("a-z0-9A-Z","ａ-ｚ０-９Ａ-Ｚ")->euc;
print $a;
** sort [#pc5e57e0]
-文字列順でソート
@dataList = ('a', 'c', 'b');
@retList = sort { $a cmp $b } @dataList
# @retList は、('a', 'b', 'c') になっている
-文字列逆順でソート
@dataList = ('a', 'c', 'b');
@retList = sort { $b cmp $a } @dataList
# @retList は、('b', 'b', 'a') になっている
-数値の昇順
@dataList = (3,15,1);
@retList = sort { $a <=> $b } @dataList
# @retList は、(1, 3, 15) になっている
-数値の降順
@dataList = (3,15,1);
@retList = sort { $b <=> $a } @dataList
# @retList は、(15, 3, 1) になっている
終了行:
#contents
-[[PDF編集>perlでPDF編集]]
** Jcode.pm で半角英数字を全角英数字に変換する [#w3cb0861]
use Jcode;
$a = "abc";
$a = jcode($a)->tr("a-z0-9A-Z","ａ-ｚ０-９Ａ-Ｚ")->euc;
print $a;
** sort [#pc5e57e0]
-文字列順でソート
@dataList = ('a', 'c', 'b');
@retList = sort { $a cmp $b } @dataList
# @retList は、('a', 'b', 'c') になっている
-文字列逆順でソート
@dataList = ('a', 'c', 'b');
@retList = sort { $b cmp $a } @dataList
# @retList は、('b', 'b', 'a') になっている
-数値の昇順
@dataList = (3,15,1);
@retList = sort { $a <=> $b } @dataList
# @retList は、(1, 3, 15) になっている
-数値の降順
@dataList = (3,15,1);
@retList = sort { $b <=> $a } @dataList
# @retList は、(15, 3, 1) になっている
ページ名:
![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
perl をテンプレートにして作成
