12/01/24 01:54:43.15
世の中にはCで書かれたCGIもあるんだぜ
しかも身近に
679:デフォルトの名無しさん
12/01/24 08:33:13.29
中国人が抱く外国イメージ 「韓国人は横柄な歴史ドロボー」
中国にとってトラブルの絶えない韓国へのイメージで最も支持を得たのは「歴史ドロボー」だった。
7．6％で1位となった「歴史の剽窃（ひょうせつ）」について、環球網は「端午の節句や孔子を韓国の文化遺産にするなど、
韓国が中国の歴史を盗んだ」ことが背景にあると解説した。また、韓国人が常に自国製品を「世界一」「最先端」と「自称」する
韓国メディアにより「横柄」（7．3％）が2位となったと紹介した。
第3位は「整形」（6．6％）だった。（「整形」が「韓国ドラマ」3．7％、「美女」2．9％を上回った）
このほか「ケチ」「過激」「民族主義」が3－6％。韓国の「家電・デジタル製品」は1－2％にとどまった。
URLﾘﾝｸ(news.searchina.ne.jp)
680:デフォルトの名無しさん
12/01/24 19:43:02.60
index.cgiを開いたらバイナリだったでござるの巻
681:デフォルトの名無しさん
12/01/25 17:49:38.95
ぶっちゃけもはやスクリプト自体はutf-8で書くことが多くなってるし
jperlとか害悪としか思わない
682:デフォルトの名無しさん
12/01/25 22:47:18.47
早く社会に出て役立つプログラム作ろうな。
683:デフォルトの名無しさん
12/01/26 00:24:25.93
企業は競争力や応用力を判定している
薀蓄は相手にしていない
684:デフォルトの名無しさん
12/01/27 01:25:11.60
ぶっちゃけ単にエンタープライズ環境を知らないだけなんだろうな
10年、20年と動かすソフトウェアを流行りに合わせて書くわけには
いかんからな
685:デフォルトの名無しさん
12/01/27 02:22:30.64
Java4が稼動してそうで怖い話だな。
686:デフォルトの名無しさん
12/01/27 08:36:33.85
Java4のソースコードなら
今も最新Javaで普通に動く。
687:デフォルトの名無しさん
12/01/27 13:36:37.34
>>686
コーディング規約でJava1.4縛りってあるものなの？
Java5以降の機能は使用禁止みたいな。
688:デフォルトの名無しさん
12/01/27 17:46:45.90
>>687
ジェネリックス禁止とか、for-each文禁止とかは企業なら普通にあるだろ。
互換性もそうだが、Javaオタクを排除して誰でも保守できるようにするという
重要な側面がある。
まあ、Java5、Java6で初めて追加された有用なクラスライブラリもあるから、
それはあくまでコーディング規約上の問題で、コンパイルと実行にはJava6を
使っているというケースもあるが。
……スレ違いだがマジレスしてしまった。
689:デフォルトの名無しさん
12/01/27 21:00:28.98
>>688
なるほど、過去のバージョンに固定しての開発は普通にあるのね。
ジェネリクスは置いといて、auto-boxingが無いだけでも面倒そう。
690:デフォルトの名無しさん
12/01/31 09:38:20.86
ActivePerlでWin32::GuiTestを使いたいのですが
PPMに出てきません
どこに有りますか？
691:デフォルトの名無しさん
12/01/31 20:25:29.54
>>690
はずしているかもしれませんが、guitestまたはwin32-guitestで
検索してみてください。Win32::gutestでは出てきません。
あと、ppmが走っているようなので大丈夫のようですが、ユーザー名に
日本語を使用するとppm関係でこけた記憶があります。
692:デフォルトの名無しさん[
12/01/31 21:17:48.24
>>691
ありがとうございます
試してみます
693:デフォルトの名無しさん
12/01/31 23:18:31.55
>692
なんか、はずしてるようなので調べてみました。どうやら、
リポジトリの追加とかが必要なようです。
実際、リポジドリの登録はした覚えがあります。
URLﾘﾝｸ(cz500.com)
からの抜粋(コピペしやすかったので採用)
1.スタート＞ActivePerl＞Perl Package Manager を起動
2.メニューからEdit>Preferences>Repositoriesタブを開く
3.Add Repositoryダイアログでリポジトリを追加
1.Name cpan
2.Location URLﾘﾝｸ(cpan.uwinnipeg.ca)
3.と入力してAddボタンをクリック。暫くするとRepositoriesタブにcpanが増えます。
4.OKをクリックしてPreferenceを閉じます。
ホームページによっては少し違いがあり、当方では追加済みなので、
検証することができません。うまくいかなかったら、activeperl
cpan ppm リポジトリの追加あたりでググって見てください。
ミスリードしたみたいですいません。
694:デフォルトの名無しさん
12/02/06 10:06:28.10
以下のスクリプトで200MB以上の動画をダウンロードしようとすると
512KBのファイルしか落ちません（Win7 32bitにStrawberry Perlです）
どうすれば全部落とせますか？
use strict;
use warnings;
use LWP::Simple;
use open ':std';
use Tk;
use Win32::Clipboard;
use LWP::UserAgent;
use HTTP::Request;
my $clip = Win32::Clipboard();
my $url = $clip->Get();
print "url=[$url]\n";
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( GET => $url );
my $proxy;
$proxy = "URLﾘﾝｸ(XXX.XXX.XXX.XXX:8080)";
print "proxy=[$proxy]\n";
$ua->agent("perl-wget");
$ua->proxy( 'http', $proxy );
695:694
12/02/06 10:07:01.90
$req->header( 'X-Header1' => 'hoge', 'X-Header2' => 'foobar', );
my $flv_file = "c:\\pl test\\xyz.flv";
my $res = $ua->request( $req, $flv_file );
my $head = $res->headers_as_string;
print "headers_as_string=[$head]\n";
実行結果
url=[URLﾘﾝｸ(XXX.XXX.XXX)
proxy=[URLﾘﾝｸ(XXX.XXX.XXX.XXX:8080])
headers_as_string=[Cache-Control: no-store, no-cache, must-revalidate
Connection: close
Date: Mon, 06 Feb 2012 00:46:54 GMT
Via: 1.1 localhost:8080 (squid/2.7.STABLE7)
Accept-Ranges: bytes
Server: Apache
Content-Length: 282093419
Content-Type: application/octet-stream
Client-Date: Mon, 06 Feb 2012 00:51:02 GMT
Client-Peer: XXX.XXX.XXX.XXX:8080
Client-Response-Num: 1
Content-Disposition: filename=XXX.flv
X-Cache: MISS from localhost
X-Cache-Lookup: MISS from localhost:8080
X-Powered-By: PHP/5.2.17
]
696:デフォルトの名無しさん
12/02/06 22:52:57.31
proxy経由しないでも同じ結果か等の原因の切り分けはしたの？
697:デフォルトの名無しさん
12/03/04 19:10:14.90
.(ピリオド)を_(アンダースコア)に変換しようとして、\マークを付け忘れたので、
ファイルの全てが_で埋め尽くされたファイルが出力されたorz
698:デフォルトの名無しさん
12/03/05 00:59:57.32
便箋w