{"id":223,"date":"2019-07-07T00:14:11","date_gmt":"2019-07-06T15:14:11","guid":{"rendered":"http:\/\/okuman64.ml\/lnx\/?page_id=223"},"modified":"2019-07-07T00:14:11","modified_gmt":"2019-07-06T15:14:11","slug":"perl","status":"publish","type":"page","link":"http:\/\/okuman64.s1002.xrea.com\/x\/lnx\/perl\/","title":{"rendered":"perl"},"content":{"rendered":"<\/p>\n\n\n\n\n\n\n
\u51e6\u7406\u5185\u5bb9<\/td>\n\u547d\u4ee4<\/td>\n\u89e3\u8aac\u7b49<\/td>\n<\/tr>\n
\u3042\u308b\u6761\u4ef6\u306e\u5834\u5408\uff08\u4f8b\u3067\u306f2\u30d0\u30a4\u30c8\u76ee\u304b\u30894
\u30d0\u30a4\u30c8\u304caaaa\u307e\u305f\u306fbbbb\uff09\u3001\u30de\u30c3\u30c1\u30d5\u30a1\u30a4\u30eb\u306b\u51fa\u529b\u3001\u6761\u4ef6\u4ee5\u5916\u306f\u30a2\u30f3\u30de\u30c3\u30c1\u30d5\u30a1\u30a4\u30eb\u306b\u51fa\u529b\u3001\u7d50\u679c\u306f\u3001\u30ed\u30b0\u30d5\u30a1\u30a4\u30eb\u306b\u51fa\u529b<\/td>\n		open(INPUT , “in.txt”);
open(OTMAT ,”> match.txt”);
open(OTUNMAT,”> unmatch.txt”);
open(OTLOG ,”> log.txt”);
while($in = \uff1cinput \uff1e ){
$ctr_in = $ctr_in + 1;
if ( substr($in,2-1,4) eq “aaaa”
or substr($in,2-1,4) eq “bbbb”){
print OTMAT $in;
$ctr_match = $ctr_match + 1
}
else{
print OTUNMAT $in;
$ctr_unmatch = $ctr_unmatch + 1
}
}
print OTLOG “in=$ctr_in match=$ctr_match unmatch=$ctr_unmatch”;
close;<\/td>\n		\u969c\u5bb3\u304c\u767a\u751f\u3057\u305f\u5834\u5408\u3001\u5927\u91cf\u30c7\u30fc\u30bf\u306e\u4e2d\u304b\u3089\u3001\u30c7\u30fc\u30bf\u3092\u629c\u304d\u53d6\u3063\u305f\u308a\u3001\u629c\u304d \u53d6\u3063\u305f\u30c7\u30fc\u30bf\u3092\u52a0\u5de5\u3057\u3066\u623b\u3057\u305f\u308a\u3059\u308b\u5834\u5408\u3001\u3053\u308c\u306f\u3001\u4f7f\u3046\u3068\u601d\u3044\u3001\u6319\u3052\u3066\u307f\u307e\u3057\u305f\u3002
aix\u3067\u306f\u3001\u306a\u305c\u304b\u3001\u300cgrep > \u30d5\u30a1\u30a4\u30eb\u540d\u300d\u3067\u306f\u3001\u51fa\u529b\u30d5\u30a1\u30a4\u30eb\u306e\u5f8c\u308d\u304c\u5207\u308c\u3066\u3057\u307e\u3046\u70ba\u3001perl\u304bawk\u3067\u7d44\u3080\u3057\u304b\u306a\u3044\u3068\u601d\u3044\u307e\u3057\u305f\u3002<\/p>\n

perl\u3067\u3088\u304f\u9593\u9055\u3048\u308b\u306e\u304c\u3001\u958b\u59cb\u4f4d\u7f6e\u3002\u306a\u306e\u3067\u3001\u6700\u521d\u304b\u3089\u30de\u30a4\u30ca\u30b9\uff11\u3057\u3066\u304a\u3051\u3070\u3001\u7406\u89e3\u3057\u3084\u3059\u3044\u3002<\/td>\n<\/tr>\n

<\/td>\n<\/td>\n<\/td>\n<\/tr>\n
<\/td>\n<\/td>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n","protected":false},"excerpt":{"rendered":"

\u51e6\u7406\u5185\u5bb9 \u547d\u4ee4 \u89e3\u8aac\u7b49 \u3042\u308b\u6761\u4ef6\u306e\u5834\u5408\uff08\u4f8b\u3067\u306f2\u30d0\u30a4\u30c8\u76ee\u304b\u30894 \u30d0\u30a4\u30c8\u304caaaa\u307e\u305f\u306fbbbb\uff09\u3001\u30de\u30c3\u30c1\u30d5\u30a1\u30a4\u30eb\u306b\u51fa\u529b\u3001\u6761\u4ef6\u4ee5\u5916\u306f\u30a2\u30f3\u30de\u30c3\u30c1\u30d5\u30a1\u30a4\u30eb\u306b\u51fa\u529b\u3001\u7d50\u679c\u306f\u3001\u30ed\u30b0\u30d5\u30a1\u30a4\u30eb\u306b\u51fa\u529b open(INPUT , “in.txt”); open(OTMAT ,”> match.txt”); open(OTUNMAT,”> unmatch.txt”); open(OTLOG ,”> log.txt”); while($in = \uff1cinput \uff1e ){ $ctr_in = $ctr_in + 1; if ( substr($in,2-1,4) eq “aaaa” or substr($in,2-1,4) eq “bbbb”){ print OTMAT $in; $ctr_match = $ctr_match + 1 } else{ print OTUNMAT $in; $ctr_unmatch = $ctr_unmatch + 1 } } print OTLOG “in=$ctr_in match=$ctr_match unmatch=$ctr_unmatch”; close; \u969c\u5bb3\u304c\u767a\u751f\u3057\u305f\u5834\u5408\u3001\u5927\u91cf\u30c7\u30fc\u30bf\u306e\u4e2d\u304b\u3089\u3001\u30c7\u30fc\u30bf\u3092\u629c\u304d\u53d6\u3063\u305f\u308a\u3001\u629c\u304d \u53d6\u3063\u305f\u30c7\u30fc\u30bf\u3092\u52a0\u5de5\u3057\u3066\u623b\u3057\u305f\u308a\u3059\u308b\u5834\u5408\u3001\u3053\u308c\u306f\u3001\u4f7f\u3046\u3068\u601d\u3044\u3001\u6319\u3052\u3066\u307f\u307e\u3057\u305f\u3002 aix\u3067\u306f\u3001\u306a\u305c\u304b\u3001\u300cgrep > \u30d5\u30a1\u30a4\u30eb\u540d\u300d\u3067\u306f\u3001\u51fa\u529b\u30d5\u30a1\u30a4\u30eb\u306e\u5f8c\u308d\u304c\u5207\u308c\u3066\u3057\u307e\u3046\u70ba\u3001perl\u304bawk\u3067\u7d44\u3080\u3057\u304b\u306a\u3044\u3068\u601d\u3044\u307e\u3057\u305f\u3002 perl\u3067\u3088\u304f\u9593\u9055\u3048\u308b\u306e\u304c\u3001\u958b\u59cb\u4f4d\u7f6e\u3002\u306a\u306e\u3067\u3001\u6700\u521d\u304b\u3089\u30de\u30a4\u30ca\u30b9\uff11\u3057\u3066\u304a\u3051\u3070\u3001\u7406\u89e3\u3057\u3084\u3059\u3044\u3002<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-223","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"http:\/\/okuman64.s1002.xrea.com\/x\/lnx\/wp-json\/wp\/v2\/pages\/223","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/okuman64.s1002.xrea.com\/x\/lnx\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"http:\/\/okuman64.s1002.xrea.com\/x\/lnx\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"http:\/\/okuman64.s1002.xrea.com\/x\/lnx\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/okuman64.s1002.xrea.com\/x\/lnx\/wp-json\/wp\/v2\/comments?post=223"}],"version-history":[{"count":0,"href":"http:\/\/okuman64.s1002.xrea.com\/x\/lnx\/wp-json\/wp\/v2\/pages\/223\/revisions"}],"wp:attachment":[{"href":"http:\/\/okuman64.s1002.xrea.com\/x\/lnx\/wp-json\/wp\/v2\/media?parent=223"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}