#!/usr/bin/perl -w use strict; use Benchmark qw(cmpthese); my $n = "\015\012"; my $sa = $n x 500; # 全文字にマッチ my $sf = ($n x 250) . ('a' x 500); # + の場合前半に長くマッチした上で失敗する my $sl = ('a' x 500) . ($n x 250); # 後半に長くマッチ my $sn = 'a' x 1000; # マッチしない my $su = ('a' x 998) . $n; # 末尾のみ
cmpthese(-5, { wa => sub { $_ = $sa; 1 while s/[\012\015]$//; 1 }, wf => sub { $_ = $sf; 1 while s/[\012\015]$//; 1 }, wl => sub { $_ = $sl; 1 while s/[\012\015]$//; 1 }, wn => sub { $_ = $sn; 1 while s/[\012\015]$//; 1 }, wu => sub { $_ = $su; 1 while s/[\012\015]$//; 1 }, qa => sub { $_ = $sa; s/[\012\015]+$//; 1 }, qf => sub { $_ = $sf; s/[\012\015]+$//; 1 }, ql => sub { $_ = $sl; s/[\012\015]+$//; 1 }, qn => sub { $_ = $sn; s/[\012\015]+$//; 1 }, qu => sub { $_ = $su; s/[\012\015]+$//; 1 }, }); __END__ 0794デフォルトの名無しさん2017/07/03(月) 21:35:51.52ID:88Z7s+4Q こちらこそ勉強になりました まぬけな質問 >>787 やとんちきなベンチマーク >>792 でも 役に立つ(?)こともあるんですな 0795デフォルトの名無しさん2017/08/15(火) 19:10:26.36ID:mGHj5vlw Perlに向いてるIDE教えて デバッグ機能とかはいらない 補完と文法チェックとオートインデントが欲しい 0796デフォルトの名無しさん2017/08/16(水) 00:53:07.53ID:83B6OrrB 一番要るのはCPANとの連携機能だろ 0797デフォルトの名無しさん2017/08/17(木) 08:11:08.69ID:3rgoYIbT CPANとの連携機能はどっちでもいい みんなメモ帳レベルのテキストエディタで書いてるの? 0798デフォルトの名無しさん2017/08/17(木) 08:48:00.96ID:ewlyrxLm IDEといいつつエディタでいいのか? 0799デフォルトの名無しさん2017/08/17(木) 21:40:11.78ID:DvPmzIRV vscode 0800デフォルトの名無しさん2017/08/17(木) 22:05:58.41ID:3rgoYIbT どこまでがエディタでどこまでがIDEなのか分からないが、それなりの機能は欲しい 自作関数とかも補完して欲しいしなあ
Locating required external dependency bin:curl-config... found at /usr/local/bin/curl-config. The version is libcurl 7.19.6 Found curl.h in /usr/local/include/curl/curl.h No working cpp (ファイルもディレクトリもありません。). Parsing curl.h in Perl at Makefile.PL line 105. Building curlopt-constants.c for your libcurl version Building Easy.pm constants for your libcurl version Building Share.pm constants for your libcurl version Generating a Unix-style Makefile Writing Makefile for WWW::Curl Writing MYMETA.yml and MYMETA.jso 0880デフォルトの名無しさん2017/10/12(木) 22:11:19.78ID:5bT9xlHu そのモジュールのことは知らないけど、とりあえず「cpp が無い」と言ってるようだね。 make と C をインストールすればいいと思うよ。 0881デフォルトの名無しさん2017/10/12(木) 22:58:50.94ID:4iOww/iD makeがちゃんとした文法になる日は来るんだろうか 0882デフォルトの名無しさん2017/10/13(金) 09:46:32.50ID:BQhKbAsH 880さん、ありがとうございます。 cppがインストールされていないのですね。。
pkginfoでみるとそれらしいものが入っているのですが、下記とは違うものでしょうか。 # pkginfo -i |grep cpp system SUNWcpp Solaris cpp GNOME2 SUNWsigcpp Libsigc++ - a library that implements typesafe callback system for standard C++ GNOME2 SUNWsigcpp-devel Libsigc++ - a library that implements typesafe callback system for standard C++ - development files 08838802017/10/13(金) 21:28:27.18ID:4p1OUNBb 問題は解決しましたか? Solaris のことは分からないのでこれ以上お役に立てそうにありません。 まだ解決していないのなら perlsolaris というマニュアルがあるはずですから読んでみてください。 その上で、Solaris のことをよく知っている人に聞くのがよろしいかと思います。 0884デフォルトの名無しさん2017/10/14(土) 22:03:44.55ID:7hq5DvWK ダメですね。。 もうちょっとネットで調べてみます。 0885デフォルトの名無しさん2017/10/20(金) 15:42:18.30ID:1xv6Ebpc 流れを切ってすみません。 半角カタカナを全角カタカナにしてファイルに書き込みたいです。 Cannot decode string with wide characters at... のエラーになります。どこをどう修正すればよいでしょうか。 use utf8; use Encode; use Encode::JP::H2Z; open(IN, "<:encoding(cp932)", "src.txt"); open(OUT, ">:encoding(cp932)", "dst.txt"); ... #$strはファイルから読み込んだ文字列 Encode::from_to($str, "utf8", "euc-jp"); #どうもここでひっかかる Encode::JP::H2Z::h2z(\$str); Encode::from_to($str, "euc-jp", "utf8"); ... といったコードなのですが・・・。 Shift-JISのコードだと上手く動くのですが・・・。 utf8で標準モジュールの利用で行いたいです。どなたかよろしくお願いします。 0886デフォルトの名無しさん2017/10/20(金) 17:53:57.14ID:P8duaFnv 目的がそれだけなら、こんな感じになるかな。