くだすれPerl（超初心者用）

くだすれPerl（超初心 ..

718:nobodyさん
08/01/11 22:16:12
>>716
WindowsのGUIアプリならば、VBなどがあるのにあえてPerlを
選ぶ理由は何？
企業が使う業務システムではVBが圧倒的に多い理由を考えると、
と思うけれど。

719:nobodyさん
08/01/12 03:37:57
>>716
Perlのよさがわかってないと思います

720:nobodyさん
08/01/12 03:49:51
Rubyまじお勧め

721:nobodyさん
08/01/12 14:37:13
Rubyは1.8でｵﾜﾀ

722:nobodyさん
08/01/12 16:29:39
Perlではソースコードの圧縮(空白やコメント除去)があまり行われないのはなぜですか？

723:nobodyさん
08/01/12 17:15:04
ｽﾚﾘﾝｸ(php板)l50

ここでソースコードの圧縮やってるよ

724:nobodyさん
08/01/12 20:57:02
ティムトゥディだからさ

725:nobodyさん
08/01/13 01:39:09 EtYE9LoZ
CPANモジュール名のリストがあるときに、それらを自動でインストールするには
どうしたらいいですか？

726:nobodyさん
08/01/13 08:37:57
Windowsならバッチファイルにする
Linuxはしらね

727:nobodyさん
08/01/13 12:51:10
パール六は全然違うとしきりに言う同僚がいて不安感が煽られています
当方パール入門したでして…覚えたばかりの知識が海のもずくになると思うと…

しかし実際のところあと3年はPerl5の知識が使えるんですかね？
そのPerl6とやらがいつ出るかも知らないので(公式サイトを検索しまくっても見つからなかった
私はバカですか？)何とも言えない状況です

あと移行はいきなりなんでしょうか、5.12を過ぎて6になった途端に様変わりしちゃったらすごく困ります^-^;

728:nobodyさん
08/01/13 13:46:17
デフォでuse strictとか、正規表現の記述が変わるとか、ソレぐらいしかしらね。

729:nobodyさん
08/01/13 14:45:25
変更点を把握すれば何も問題ないだろ

730:nobodyさん
08/01/13 16:08:40
Rubyの仕様変更に比べればどうってことない

731:nobodyさん
08/01/13 17:03:12
>>727
ま、こういうのはどの言語でもふつうにあることなんじゃないかな。
そういうのについてこれないのは、技術者として終わりみたいな。
今でも N88BASIC とか COBOL とかで組んでる人っていないだろ？

> しかし実際のところあと3年はPerl5の知識が使えるんですかね？
> あと移行はいきなりなんでしょうか
これは、ケースバイケースなのではっきりとはいえない。
例えば、過去の資産を活かしたシステムを構築する場合は、Perl5で
構築するだろうし。
あと、安定性も考えて、いきなり新しくはしないケースもある。
システムは、早く作れることも大事だけど、安定して動くことが
大事なのだから。

個人的に思うのだけど、大幅な仕様変更をするのに、いつまでも
前の名前を使い続けるから紛らわしくなるんじゃないかなと思う。
Perl は 5 で完成形であり、それで終わり。役割は果たした。
そして、新しい言語が出る。とした方が分かりやすいと思うのだが。

732:nobodyさん
08/01/13 17:13:18
安定性を無視して、やたらと新機能を追加させることに
固執している言語があるが、あれよりマシだと思う。

大幅に仕様変更していて、ユーザがついてこなかったから、
やっぱり戻したとか。
仕様変更をしすぎて、別の言語と非常に似ていて
その存在自体が意味無いものに見えるとか。

733:nobodyさん
08/01/13 20:48:32
>>732
PHPのことか。
zendはphp4のサポートを終わらせて無理やり5に移行させたがっているが、4の開発メンバーは今は6を作ってるらしいからそれ待ちだ。

734:nobodyさん
08/01/14 03:03:11
なんでPHPやねんｗ

735:nobodyさん
08/01/14 03:20:58 h4dQ9PIo
日本のPHPの人気ぶりは異常
海外サイトではPHPなんて全く持ち上げられてない
んで、何がいいたかったかというとPerl最高

736:nobodyさん
08/01/14 09:05:00
ということにしたいんですね

737:nobodyさん
08/01/14 09:50:52
日本のウォシュレットの人気ぶりは異常
海外サイトではウォシュレットなんて全く持ち上げられてない
んで、何がいいたかったかというと温熱最高

738:nobodyさん
08/01/14 12:36:17
PHPのプロジェクトに放り込まれて、担当モジュール作ったけど、他のモジュールが遅れてたので、暇つぶしにPerlで全部作ったら怒られた。
Rubyのほうが良かったですか？って聞いたら余計に怒られた。
なんで？

739:nobodyさん
08/01/14 13:25:17
ＫＹ社員は死ね

740:nobodyさん
08/01/14 14:50:02
レンタルサーバにて、Perlを使ってPostgreSQLに接続し、
その内容をhtml出力するところまでやっと出来たくらいの知識の者です。

そこで、普段のバックアップはどういう仕組みでやるとよいのか
迷いましたので、こちらで質問してみました。
私としては、Perlで、データベースのテーブルとテキストファイルと
をコンバートするプログラムを自作し、定期的に手動（FTPソフトを
使うなどして）でローカルにファイルを保存しておく方法くらいしか
思いつきませんでした。しかし、それだと普段の作業に非常に
手間がかかってしまいます。

一般的に、レンタルサーバでPerl+PostgeSQLのWebシステムの
バックアップは、このような方法を取ることが多い、みたいなものは
あるのでしょうか。よろしくお願いします。

741:nobodyさん
08/01/14 18:56:43
SSHでpg_dump

742:nobodyさん
08/01/14 19:46:06
>>741
Postgresqlの定番のバックアップの方法ですよね。
それしかないのでしょうかね。

743:nobodyさん
08/01/16 10:57:33 Z4nycbhz
パールでWebプログラミングしようかと思っております。
が、セキュリティーが不安です。
レンサバでやるにせよ、セキュリティーに穴があって攻撃されると
いろんなトラブルがあるんでしょ？
当方、素人の趣味でやってるプログラミング歴まだ1年のプログラマーなもので
そのあたりを実際に企業で開発した経験が当然なく不安です。
セキュリティーやネットワークに関する勉強をやるのに手始めとしてオススメのメソッドありますか？
あまりパールと関係なくてごめんなさい。

パールの本でセキュリティーやネットワーク関係のものって無いですよね。
LWP本はありましたが、
もっと広範にネットワーク関係のスキルを強化したいです。パケット解析とか。

まあ、それはそうと他のWeb系を始めようとするパーラーはそういうセキュリティーやネットワーク関係の不安ないんでしょうか？
皆さん気軽に始めていらっしゃる方が多くよほど知識がおありなのだなあと斜にかまえて静観しています。

744:nobodyさん
08/01/16 17:37:17
どこを縦読み？

745:nobodyさん
08/01/16 17:58:11
>>743
Perlからはなれて、パケットフィルタリングとか、TCP/IPの
詳細について調べていった方がいいと思う。
セキュリティも個人情報を扱っているとか外に洩れるとやばいものは
物理的なレベルで外部に公開せずに社内LANでのみとかにするわけで、
そういうものはPerlの設定やコーディングでなんとかするものではない。

746:nobodyさん
08/01/16 18:07:35
>>743
最近は、ASP（アプリケーションサービスプロバイダ）とかあるので、
それを利用した方がいいと思う。プログラムを組むのは辞めて。
それだと、必要な機能だけを月に数千円～数万円で必要な期間だけ
利用できる。

747:nobodyさん
08/01/16 20:49:06
ごめん、拡張子aspだけど、中身Perlｗｗｗｗｗｗ

748:nobodyさん
08/01/16 22:39:49
>>747 あるあるｗｗｗ

749:nobodyさん
08/01/18 20:13:52
すみません。質問です。
不正な入力を防ぐ為に、いろいろなことを考えているのですが、
一人で考えていると、漏れがありそうな気がして怖くなりました。
何か、こう言うことを考えてコーディングしたほうがいいという
ガイドラインのようなものはあるのでしょうか。

例えば、以下のような感じです。
１．変なアドレスからcgiを実行しようとしていたらはじく
２．textareaタグの記述は○文字まで
３．同一IPアドレスからの連投を防ぐ

750:nobodyさん
08/01/18 22:45:45
パイプで別プロセスを作った場合ですが、
特殊サブルーチンENDはそれぞれが終了した場合に常に行われる。
これを防ぐ手立てはないでですか？

751:nobodyさん
08/01/19 10:32:13
>>750です。自己解決しま。

752:nobodyさん
08/01/19 16:56:00 FZ1FRzKn
Perl使用者がよく使うライブラリ、モジュールなどを紹介した
投票形式のサイトを以前見かけたのですが、思い出せません。

どなたかご存じないでしょうか?

753:752
08/01/19 17:21:59
見つかりました

URLﾘﾝｸ(mfpm.blogdb.jp)

お騒がせしました

754:nobodyさん
08/01/23 16:33:04 LaH3xf3C
こんにちは。

755:helpです
08/01/23 17:26:00 AM6Aqa52
すいません。下記のようにwhile→foreach→whileと入れ子構造で
繰り返し単語リストにある用語を文書から検索したいのですが、
上手く動きません。Helpお願いします。
$word がwhile (<F>) 以下の$wordに上手く渡せません。

open(F4, $dic_file) || die "$dic_fileをオープンできません:$!\n";

while (<F4>){
@words = split(/\n/, $_);
foreach $word (@words){

while (<F>) {

print "$_";
#「$word」という単語のみにマッチさせる

756:nobodyさん
08/01/23 18:55:07
while (<F4>){
@words = split(/\n/, $_);

wwwwwwwwwwwwwwwwwwwwwwwwwwww

757:nobodyさん
08/01/23 19:27:30
$/ = '';

758:755
08/01/23 22:55:33
つまり
１．用語ファイル　（単語が１行に一つずつ入ってる用語。５００個位）
２．文書ファイル　（文書ファイル。単純なテキスト）
３．２の文書ファイルを、１の用語ファイルの単語を一つずつ
whileを使って検索します。

早めに必要なのでどなたか教えてください。>756さん笑ってないで。

759:nobodyさん
08/01/24 00:24:58
>>755
Perlでは（というか…）改行文字でレコードが分割されているので
@words = split(/\n/, $_); # <-はありえない
そもそも、こんなループを組むこと自体どうかとも思うが

my @words = [];
while (my $word = <F4>) {
　　push @words, $word; # $_でもいいけど
}

ファイルをループ先頭でseekするのもありかな、あとはお好きにﾄﾞｿﾞｰ。

760:nobodyさん
08/01/24 07:38:32
>>755
>>759に書いてあるように改行文字で分割される、
事前に>>757を書いておくと、以降$/に代入された文字で分割されるようになる。
ここでは空文字列なので分割しなくなる。

my $txt
{
　local $/;
　open(F,$txt_file) or die "$txt_fileをオープンできません。";
　$txt = <F>;
}
open(F4,$dic_file) || die "$dic_fileをオープンできません。";
foreach $word (<F4>) {
　$word =~ s/\n$/s;
　$txt =~ s/\Q$word\E//sg #例: マッチ部分削除
}

|´д`)ﾉ笑ってすまんね

761:755
08/01/24 09:47:56 TN487IBF
好きよ、好きよ、好きよ >760さん。

762:nobodyさん
08/01/24 10:15:27
検索するといっても、どういう結果が欲しいわけ？
ファイル２の行数までほしいとか、ファイル１のwordのリストだけでいいとか、
件数までいるとか。

763:nobodyさん
08/01/24 23:47:07
すいません。Perlからword, excelファイルをいじることってできます？
マクロの言語(VB?)分からないので・・・。

764:nobodyさん
08/01/25 03:03:45
Win32::OLE

765:nobodyさん
08/01/25 08:09:41
>>763
Perlそのものがその程度の知識であれば、VBAを勉強した方が早いと思う。
一つバージョンが違っただけで途中で動かなくなるとかしょっちゅうだし。

766:nobodyさん
08/01/25 15:27:50
VBAでわからないなら　Perlでも無理だと思う。

767:nobodyさん
08/01/25 18:34:06
VBとVBAの違いが分かっていない時点で、
プログラムそのものをあきらめた方がいいと思ったりｗ

768:nobodyさん
08/01/26 00:07:47
VBAだけでもVB組めるんだが・・・釣られた？

769:nobodyさん
08/01/26 18:10:44
cgiファイルにアクセスして来た内容（GETやPOSTのデータなど）を
ログに保存する場合、すべて独自でプログラミングするしかないのでしょうか。
自分で作りはしたのですが、こういう状況は頻繁にあるので、
モジュールがあるのでは、と思ったりしたのですが。

770:nobodyさん
08/01/26 18:32:06
なぜ、そう思うならドキュメントを読もうと思わないのだろうか?
URLﾘﾝｸ(search.cpan.org)

771:nobodyさん
08/01/27 01:37:41
>>770
レスありがとうございます。
ドキュメント読んでやってみます。m(_ _)m

772:nobodyさん
08/01/27 12:37:53 TNan8zlF
日本でperlの良いサイトが見当たりません。
perlの英語サイトでお勧めありますか？

773:nobodyさん
08/01/27 13:13:35
きみの言う”良いサイト”を説明しないことには・・

774:nobodyさん
08/01/27 13:32:38
perlはネット上では情報量は多い方だぞ。

一方で某社の言語のは情報量は少なく、高い公式文書とかを
買うしかなかったりするし、簡潔すぎて分かりにくい説明を
一生懸命読む羽目にもなる。

775:nobodyさん
08/01/27 19:07:45 TNan8zlF
>>773
良いサイトを教えて欲しいのではなくて良いサイトが日本ではないと思うので
海外のお勧めサイトを教えて欲しいんです。
切実な要求ではなくて、ハックな皆さんが常日頃どんな英語サイトを見ているかを気軽に尋ねたつもりなんですが。

776:nobodyさん
08/01/27 19:26:24 TNan8zlF
>>774
分かる気がします。
定番ですがperl mongerは良く見ますが、かなり突っ込んだトピックでも有益な情報がたくさん引っかかることがあったりしますね。
例えば、insideout objectはこのサイトで勉強しました。
あとGoogleの最近更新されたページ検索とはてブとCPANサーチを使えば目的のページが見つかることが多いですね。
皆さんはどうやってperl情報を検索してますか？
お勧めあったら教えてください。

で、上で質問したのは、RSSで読みたくなったりブラウザーのお気に入りに入れておきたくなるような良いサイトが
なかなか日本のperl関係では少ないかなということです。
まあそのあたり実際どう思います？
個人の主観なので、まあそのあたりは適当にスルーしてくださっても結構です。

777:nobodyさん
08/01/28 00:30:45
おれは
URLﾘﾝｸ(perlbuzz.com)
URLﾘﾝｸ(search.cpan.org)
use.perl
とか色々。

778:nobodyさん
08/01/28 00:32:33
あ、authorぢゃなくて
URLﾘﾝｸ(search.cpan.org)
こっち。

779:nobodyさん
08/01/28 00:36:50
うーん、なんか半端だな・・・
URLﾘﾝｸ(www.perlcast.com)
URLﾘﾝｸ(perlmonks.org)
URLﾘﾝｸ(perlperl.com)
URLﾘﾝｸ(cpancode.org)
URLﾘﾝｸ(cpants.perl.org)

780:nobodyさん
08/01/28 20:41:09 iAknG7Tj
>>777
ありがとうございます。
知らないサイトがあって参考になりました！！！！
早速livedoorリーダーにRSSフィードぶち込みますねｗ

サーチCPANのRecentというのは着目してませんでしたが良さげですね―
やはり最近のものをチェックしないと古くなってることが多いからですか

こうやって見てみると海外では良いperlサイトがどっさりありますね。

781:755
08/01/30 18:16:21
URLﾘﾝｸ(www.voynich.com)のコードなのですが、
これだと1ワード検索して終わりです。できれば以前教えていただいた
while (my $word = <F4>) {
　　push @words, $word; # $_でもいいけど
}
で、foreach $word(@words){
}の中でリストの単語を全て動かしたいのですが、どうも上手くいきません。exit(0)のせい？
どこからどこまでをforeach $word(@words){}のカッコでくくればいいのでしょうか？
または、別の解決方法でもいいので、教えてください。
よろしゅう。

782:nobodyさん
08/01/30 22:34:27
mapとgrep、そして多次元配列を覚えると良いよ。

783:755
08/01/30 23:13:31
>781
覚えるの１週間、教えてもらえば５分。
これでもいろいろ他にやることあるのよ。
意地悪しないで教えてちょ。

784:nobodyさん
08/01/30 23:26:43
用件仕様が見えてこない。
何か例があればいいのだが。

785:755
08/01/30 23:27:11
もったいぶらずにさっさと教えろ。ヲタク野郎。

786:755
08/01/30 23:29:57
>785
騙るな。俺はそんな乱暴な人ではない。

787:nobodyさん
08/01/30 23:33:38
いや、だからさ、読み込むファイルのサンプルと、
欲しい結果のサンプル、そして、今のプログラムで出力される
結果のファイルとか、具体的に示してくれないと何処に問題が
あるのかが分からんのよ。
そういうところはソースコードを全部読んでも見えてこないでしょ？

ま、サンプルが出たとしても対応は明日以降になるけれど。

788:755
08/01/30 23:41:30
>787
７８７さんは７８２さんですよね？
そのmapやgrep、多次元配列とやらで781の回答をきぼん。

789:nobodyさん
08/01/31 07:18:48
で、サンプルは？ｗ

790:nobodyさん
08/01/31 08:20:23
ちょっと最初の方だけ読んでの疑問なんだけど
ファイルと検索文字を読み込んだ後の
chop ($open_file, $save_file, $word);
って何をやろうとしているの？

791:755
08/01/31 09:14:13
>790
それはSTDINの改行を取るためですね。

>789
入力する文章は日本語と英語が混じったものです。
検索する単語も適当にでっちあげて下さいよ。

792:755
08/01/31 09:26:00
別件なのですが、マッチした単語を@match_wordsに一度格納しているのですが、
いつの間にか先頭にARRAY(0x35e08)というのが入り込みます。
これは何ですか？

793:nobodyさん
08/01/31 09:42:51
で、何が問題なのだろうか。
実行してみたら、以下のように３つ表示されたぞ。
（具体的な文字列は省略している）
line:3
line:7
line:8

794:nobodyさん
08/01/31 09:44:56
ひょっとして、検索用語を複数同時に指定したいとか？
探索する文字列を指定してください：2ch, AA, モナ
見たいな感じに

795:nobodyさん
08/01/31 09:47:25
>>792
その別件のソースを出さないことには分からないと思う件

796:755
08/01/31 09:58:21
>794
その通りです。

>795
Aから並べた単なる単語の羅列です。どんな文字列でもARRAY(0x35e08)
がマッチした文字列の一番最初に入ってしまう。
ARRAY(0x35e08)　←これは何？

（以下例）
acceptance
accompanying sheet
account

797:nobodyさん
08/01/31 10:46:42
おまいらよろしくお願いします。

CGI::Liteを使ったファイルアップロードで、漢字を含むファイル名を扱ってます。
特定の条件でファイル名がアップ時と変わってしまうのです。
条件は分かったんですが、どうすればファイル名を正常に扱えるかわかりません。

Perlのバージョン：5.8.2
クライアント：WindowsXP
発生条件：表、ソ、十などをファイル名に含む
現象：表などの文字より前が消えてしまう
例）画面表示内容.jpg が、　示内容.jpg　に変わる。

ヒントください。

798:nobodyさん
08/01/31 11:02:46
>>797
jcode.plで変換するしかないかと。
あと、これ
URLﾘﾝｸ(digit.que.ne.jp)

799:nobodyさん
08/01/31 14:37:56
文字列検索プログラムを書いたぞ。phpだけど。
このファイルと同じディレクトリに[in.txt]という名前で文書ファイルがあるものとする。

<html><body>
<form method="POST" action="test.php"><input type="text" name="key" size=30>
<input type="submit" value="送信"></form>
<hr>

<?php
if($_POST["key"] == ""){
echo "</body></html>";
exit;
};

$key = $HTTP_POST_VARS["key"];
echo "検索キー：$key<br>";
// 検索キーを空白スペースで分割する。
$key2 = split(" ", $key);
// 要素数を出す。
$key2_cnt = count($key2);

$INFILE = fopen("in.txt","r");

$line_num = 1;
$cnt = 0;

800:nobodyさん
08/01/31 14:39:01
つづき

while($cnt < $key2_cnt){
echo "検索キー：$key2[$cnt]<br>";

while(!feof($INFILE)){
$line = fgets($INFILE, 1024);
$search_flg = strpos( $line , $key2[$cnt] );
if( $search_flg !== false ){
$out_line = "line " . $line_num . " : " . $line . "<br>";
echo $out_line;
}else{
// echo "この行にはありません。: $line<br>";
}
$line_num = $line_num + 1;
}
rewind( $INFILE );
$cnt=$cnt+1;
}

fclose($INFILE);

?>
</body></html>

801:nobodyさん
08/01/31 15:20:34
質問者は検索キーワードが複数でも対応ということだけど、
出力結果を具体的にどうしたいのかは分からないよな。

（例１）検索キー：モナー AA
[モナー]
line 3 :
line 5 :
[AA]
line 2 :
line 3 :

（例２）検索キー：モナー AA
[モナー]と[AA]を含む。
line 3 :

802:nobodyさん
08/01/31 19:00:55
>801
（例１）でお願いします。

803:nobodyさん
08/01/31 19:06:46
>>802
だったら、>>799-800のソースを動かしてみればいいぞ。
[test.php]のファイル名で保存して実行すればおｋ

804:nobodyさん
08/01/31 19:09:54
大体、例１を作る必要性って何だろうか。
そのキーワードの数だけプログラムを実行すればいい話なのに。
例２ならば分かるが。

805:nobodyさん
08/01/31 20:14:39
別の言語を持ち出すやつは、スレタイ読めないのか

806:nobodyさん
08/01/31 22:10:29
別の言語だけど、表記がほとんど似ているものだろ。
質問者はロジックを聞きたかったわけから、これで解決じゃね？

807:755
08/02/01 00:06:19
> 803
俺のサーバーPHP動きません。
>804
1000回プログラム動かせんから、ループで自動でやりたいと言ってるっしょ。

質問をもっと具体的にすれば良かったかしら。
「781のサンプルプログラムをループで動かす方法を教えて」
です。

808:nobodyさん
08/02/01 00:55:46
>>807
サーバでないといけない理由ってあるの？
ローカルで動かせばいいじゃん。XAMPPとかあるんだし。

809:nobodyさん
08/02/01 00:58:10
>>807
具体的に言えといわれて、具体例を出さないからこうなったんだと思う。

810:nobodyさん
08/02/01 01:07:14
質問者は>>799-800をPerlに移植すれば良いのかどうかの
事は言わないんだよな。
実際に出来上がってみて、あーだこーだいうんだろうな。
そんな態度だから最初に質問した時からおちょくられてるんだと思う。

811:perl好き情報４回生
08/02/01 13:26:52
修士出たら就職を考えている現在3回生の情報の学生でperlが一番すきですが、
今年に入ってからいろいろと求人情報を集めてみたところperlの仕事少ないですね
噂には聞いてましたが、僕は何が何でもperlを仕事にしたいのです
まあそれはおいといて、perlを仕事としてみたときどんな感じですかね？
皆さま先輩方の多くはperlを仕事としていらっしゃると思ったので、
是非とも業務内容、他言語と比べたときの待遇、仕事のやりがいなどなど、
ポジティブな意見(勧め)もネガティブな意見(愚痴)も生の声としてお聞かせ願えればと存じます。

812:perl好き情報３回生
08/02/01 13:31:25
間違えました。名前欄は３回生が正解です。

813:nobodyさん
08/02/01 13:45:35
>>811
確か、mixiとか、はてなは、perlじゃなかったかな。

で、お前は一体何年なんだ？ｗ
修士を出てからということは、あと２年後に就職活動を
やり始めるということかな？
合計あと３年数ヶ月は親のすねをかじって学生をやると。

814:nobodyさん
08/02/01 13:49:55
人に情報をくれといってないで、まずは君の作った実績を出してみたら
どうだ。例えば>>755に対する答えのソースを作るとか。

815:nobodyさん
08/02/01 15:10:24
Perl大好きっていう気持ちはわかるけど、
Perlしかまともに出来ない人に就職口はないかと
というか回りから軽蔑される

816:nobodyさん
08/02/01 15:17:27
>>815
凡人に対しては同意だけど、とことんやってる人においては
その限りではないと思う。

817:nobodyさん
08/02/01 16:03:32
やれる人というのは、大抵その企業のやり方に会わなかったり、
自分が上に立ってやろうという考えを持つようになったりして、
会社員としてやっていくよりも、起業して社長としてやる場合が多い。

なので、君の場合は「良い所に就職する」ということよりも、
投資家を説得するプレゼンをするとか、誰もが納得できるような
システムを作る方向でやっていったほうがいいと思う。
Perlは、アクセスカウンタ、掲示板、チャット、ブログ、
ショッピングモールと発展してきたけれど、この次にあたるもの
を作るのを考えると良いだろう。

修士までいくのであれば、そのまま博士まで行って、松本氏のように
純粋に言語をやる道もある。

818:nobodyさん
08/02/01 19:19:56
人工知能とか？

819:perl好き情報３回生
08/02/01 23:20:23
皆様、予想外の多いレスに大変驚いてます。
ありがとうございます。

>>813 3を押し間違えただけです。3回生に相違ありません。w
> 合計あと３年数ヶ月は親のすねをかじって学生をやると。
そうなんです。そうした生ぬるい環境でありますが、全身全霊で取り組む覚悟です。

>>814
>人に情報をくれといってないで、まずは君の作った実績を出してみたら
魅力的な人材であることを立証できないです。僕はまだまだです。

>>815
>Perlしかまともに出来ない人に就職口はないかと
そう言われるとつらいものがありますが、C++を今からしっかりやって実力をつければ
重宝されるのではないかと考えています。

>>817
>投資家を説得するプレゼンをするとか、誰もが納得できるようなシステムを作る方向で
では後者でやります。Web上のプラットフォームの開発が出来たらいいなあとは思っています。WebOSとか。

820:nobodyさん
08/02/02 00:24:29
プロトコルが必要な今のネット、NGNも新しいプロトコルを使用することがすでに決まっており、WebOSha机上の空論だということすら知らないのでは無理かと・・・

821:nobodyさん
08/02/02 01:14:38
>>811
Perlも道具に過ぎない。
就職から定年まで約40年間ずっと同じプログラム言語を使い続ける事はまず不可能。
管理職になってプログラミングから足を洗えるのはごく一部。
学生の時点で言語にこだわるより、考え方・分析方法・設計方法を学ぶ道具だと割り切った方が良い。

そう言ってる漏れも、学校じゃPascalやらCやってて、就職してからはC、C++、VBやって、
独立してからは最初はDelphi使ってたが今はVBAとPerlとJavaScriptとSQLをやってる。
今後JavaやPHPもやることになると思う。

822:nobodyさん
08/02/02 05:18:25
>>818
新しく言語を作っていくという意味さ。
今のPerlはオブジェクト指向が完全でないとか、日本語で一部文字化けするとか
あるわけで、それを改善していくという方向はどうかなという提案です。
Wikipedia項目ﾘﾝｸ

ま、アスペクト指向とかもあるからそっちへPerlを持っていくのも良いかもね。

823:perl好き情報３回生
08/02/02 09:07:03
>>820
そうだったんですか！大学にそういう専門の先生がいて、僕も影響を受けて
この一年いろいろ構想を練りつつ勉強を重ねてきたのですが、、、

>>821
いろんな言語を使いこなせないといけないんですね。
僕はC,C++,Perl,Java,Javascriptがお遊び程度に使えます。
が、perlはともかく、他の4つは本当に中途半端です。
perlスレだからもう少しはperlを主軸にして生計を立てられるという意見があるかと
思いましたが、皆さん違うようですね。現実は厳しいということでしょうか。

824:nobodyさん
08/02/02 11:57:53
Perl6 はがらりと仕様が変わるらしいから、それが一般に浸透すると
また状況が変わってくるかもしれないよ。

825:nobodyさん
08/02/02 12:00:31
Perlが好きだの書いてて、いかにも得意なもののように思える言い方だったが、
実際には、「Perlしか知らない」の間違いじゃないのか？ｗ

826:nobodyさん
08/02/02 12:16:08
>>822
オブジェクト指向じゃないとだめって先入観は捨てましょう。
文字化けはどの言語でも日本語に限ったわけじゃないんだけど・・・

>>824
正規表現がすごいぞ

>>825
あえて誰も言わなかったことをｗ

827:nobodyさん
08/02/02 12:17:50
じゃ、「何言ってるんだ？」じゃなくて、よいしょする方向でｗ

828:perl好き情報３回生
08/02/02 13:36:26 9aX3NPkq
>>824
2010年以降になりそうですが、その頃はまさに僕が現役ですね。
例えば、どんな変化が予想されますか？

>>825
僕なんて落ちこぼれもいいとこです。perlしかできないどころかperlも満足にできないです。
ですが一身上の都合により毎日猛勉強しているので
そのうちいろんな言語を使いこなせるようになるよとは先生に言われました。
ただ、先生は業界のことを全くご存知ない方なので、こうやって情報集めしています。

829:nobodyさん
08/02/02 13:47:22
コンピュータ言語を毎日猛勉しなきゃならないなら、この業界は見込み無いから諦めたほうが良い。
使ったことない言語でも言語仕様書を4-5日読めば使えるのが普通。

毎日猛勉するなら英語を勉強したほうが10万倍役に立つ。

830:nobodyさん
08/02/02 13:51:33
>>828
今は Perl が下火で PHP や java が主流だけど、
これからは PHP や java が下火となり Perl が主流となる。

831:nobodyさん
08/02/02 13:53:43
「業界のことを全く知らない先生」の言う事を、
信じているのか、いないのか良く分からない件

832:perl好き情報３回生
08/02/02 13:53:53
>>829
そうなんです。僕はある事情で人より頑張らないと追いついていけないみたいです。
つくづく才能がないなあと思います。学校では出来る人を目の前にすると凹みっぱなしです。
大学に入ってから自分の才能のなさに気づきました
でも親に申し訳が立たないので猛勉強してついていこうとしています。
猛勉強なんて偉そうな言葉使ってごめんなさい。

833:perl好き情報３回生
08/02/02 13:59:49
連投すみません。

>>930
perl6になるとそういうふうになるのですか。
最近perlをやってていいのか不安になっていたので心が落ち着きました。

>>931
先生は非常に尊敬しているし、その先生の「そのうち出来るよ」という言葉も僕
には大きな支えになっています。
でも、就職情報は先生に聞くのでなく自分で収集する学生が多いです。

834:nobodyさん
08/02/02 14:54:59
>>833
君は、他の言語を学ぶ必要性についてはどう思ってるの？

835:nobodyさん
08/02/02 15:13:04
＞833
藻前、なにか勘違いしてないか？
プログラミングってのは、コンピュータに呪文を唱えて仕事をさせる事じゃないぞ。
コンピュータという、言われた事しか出来ないモノに、指示を出して仕事をさせる事だ。
コンピュータはあいまいさがある人間の言葉で指示されても理解できないから、専用の言葉・文法を使う。

プログラミングを学ぶ上で一番大切なのは、自分が出したい指示をあいまいさなく、的確に表現できる能力を身につけることだ。
文法や単語（命令）なんかは、分からなきゃ辞典(リファレンス)を見ればいい。

836:nobodyさん
08/02/02 15:46:15
Perlを使った仕事をしたいのなら、不安だのいってないで、
まっすぐにその方向に進めばいいんでないの？
情報処理の資格を取ろうと思っている人が、突如法律の勉強を
したりしないのと同じ。
絶対に完璧で将来がある選択肢なんてないわけで、自分の思う方向、
好きな事に一生懸命に取り組むかどうか。

837:nobodyさん
08/02/02 17:14:06
本当にプログラムやりたいなら、データベースもやらなきゃいかんよ。
今業務でやってるのはPHP＋MySQL
ちなみに、Perlはもちろんこと、Ruby、C／Ｃ＋＋、VB、Java等も勉強した。
趣味で組むのはPerlかな。

838:nobodyさん
08/02/02 18:01:41
いや、この人の場合は、SEやプログラマーとして仕事をやりたいとかじゃなくて、
「Perlをやりたい」んじゃないかなぁ。

839:nobodyさん
08/02/02 18:06:49
天才的な感があるヤツ以外、母国語が得意じゃないヤツはプログラミングを仕事にするのは難しい。
Perlを使った仕事をすると言っても今からPerlを使いこなせるようになっている必要は無いだろう。
まずは本を読め。次に数学(離散数学系）を学べ。
それが出来るのは学生のうちだけだ。

840:perl好き情報三回生 ◆qqt5.0NxB6
08/02/02 21:53:31
>>834 現段階ではc/c++をよく学ぶつもりですが僕のような経験不足な人間には到底分からないです。

>>835 なるほど、要求を的確に表現する能力が大切なんですね。とてもためになります。

>>836 僕の場合その突如があるので危なっかしいです。
それに一生懸命すぎて身を滅ぼしがちなアンバランスな人間だと思います。

>>837 MySQLですか。実務的なDBの経験はほとんどないので、机上に留まらず精進します.

>>838 というよりもperl的な文化が好きです。ネットや身の回りでperlerに親しみを感じるので、
こうした人たちとこうした文化を創っていきたいと思ったんです。

>>839 高2と高3の頭は大学数学の本を読んでいたので、数学は得意です。
本は一応月に20冊くらい読みますが、やはり周りの人がすごすぎるので、
今の5倍は読みたいです。

841:perl好き情報三回生 ◆qqt5.0NxB6
08/02/02 21:55:40
ちょっと修正です。連投失礼します。

>>834 現段階ではc/c++をよく学ぶつもりですが、僕のような経験不足な人間には
いろんな言語を学ぶ必要性など到底分からないです

842:nobodyさん
08/02/02 23:48:00
プログラム言語に依存した考え方を学ぶのは、現場に入ってからで十分。
Perlも道具の一つだと認識し、道具選びは適材適所だって事を理解しろ。
ついでに言えば、学習用のプログラム言語は1個に絞っても桶だ。
ただ、面接対応で考えりゃPerlだけじゃ押しが弱い気もする。

843:nobodyさん
08/02/03 00:09:50
学部3年で進学希望かつその後は将来ソフトウェア開発の仕事を希望していて
今から独学でperl学ぶの？なんか色々矛盾してるな… 専攻変更したって言うことか?

844:nobodyさん
08/02/03 11:27:58
COBOLプログラマが大量に解雇されたという話知ってる？

845:perl好き情報三回生 ◆qqt5.0NxB6
08/02/03 23:32:26
皆様、アドバイスありがとうございます。

>>842 面接を考えるとperlだけじゃ弱いんですね。perl, c/c++, javascript, java, perl,
lisp, vbは勉強する予定です。そのうち、最初の2つ(perl, c/c++)に力点を置く予定です。
perlをとくに絶対視・唯一視しているわけでもないです。
言語に依存しない考えをいまのうちによく勉強することが大切なんですね。

>>843 専攻変更ではないですが、最初は数学科に行く予定でしたが、土壇場で情報に変えました。
将来perlの仕事につきたいという思いはもちろんありますが、それほど決まっていなくて、
今は情報収集しています。どこか矛盾していますか？

>>844 聞いた気もしますが、全然知りません。

846:nobodyさん
08/02/03 23:40:34
とりあえず、大文字小文字の使い分けから始めない？
COBOLはシステムを切り替えられる資金のあるところは人の入れ替えしてるが、無いところは細々と雇い入れてる。
まぁ、SIは先が無いので、エンドに引き抜かれないかぎり先は無いね。

847:nobodyさん
08/02/03 23:42:52
全体像が見えていないとかいいながら、異様にPerlにこだわっている
感があって、なんか良く分からないな。
PHPやC#は、あえてはずしているというよりも、その存在を知らないのかもな。
で、このスレはPerlのくだすれであって、お前の人生相談用スレではないので、
スレ違いの話をするつもりなら、出て行ってくれないか？マ板でやったらどうだ。

848:nobodyさん
08/02/04 00:06:37
どのスレに移動するかを教えてくれたら、俺はついていくぞ。

849:nobodyさん
08/02/04 12:48:01
１０年前からperlなんか廃れるとか仕事にならないとか言われ続けてるけど
いまだに仕事になってるから死ぬまではなんとかなるんじゃないかな

中小企業のＷＥＢ屋でいいならperlの仕事はあるぞ

850:nobodyさん
08/02/04 14:03:12
Ajax の例とかもあるしな。どうなるかは誰もわからない。

851:nobodyさん
08/02/05 14:08:38 ke8bjavM
phpをperlに書き換えて欲しいです。
わかる人お願いします。

<?php
//パラメータの取り出し
$CID = $_GET['cid'];
$cc = $_GET['cc'];
$SID = $_GET['sid'];
$CH = $_GET['ch'];
$C1 = $_GET['c1'];

//パラメータ判別
/*処理*/

//処理
header("Content-Type: text/plain; charset=Shift_JIS");
print"rc=0\r\n";
print"u1=URLﾘﾝｸ(www.abc.jp)";
/*処理*/
print"c1=AAA\r\n";
print"u2=URLﾘﾝｸ(www.abc.jp)";
print"END\r\n";

?>

852:nobodyさん
08/02/05 14:15:13
>>851
CGI.pmつかってもいいの？

853:nobodyさん
08/02/05 14:23:16 ke8bjavM
<?php　から　?>までをそのままperlに書き換えるのが不可能なら構わないです。

854:nobodyさん
08/02/05 16:02:31
URLﾘﾝｸ(www.abc.jp)

855:nobodyさん
08/02/05 22:54:03
use CGI;
my $q = new CGI;
my $cid = $q -> param( 'cid' );
後同じ

print "Content-type: text/plain; charset=Shift_JIS\n\n";
print "rc=0\n";
後同じ

856:nobodyさん
08/02/05 23:10:03
Perlの世界には $_GET['cid']; とか $_POST['cid']; とかないからね。
受け取った文字列を & で split して、さらに = で split して。という
処理から始まる。
CGI.pm使わないと同じような構文にはならないだろうね。

857:nobodyさん
08/02/05 23:13:32 LtG8FBU3
windows xpで、perlからwindowsのアプリケーション(例えば
電卓のcalc.exe)を終了させるにはどうやればいいですか?

perlに関する知識はURLﾘﾝｸ(www.rfs.jp)こちらのサイト
を読み終えたくらいです。

858:nobodyさん
08/02/05 23:23:42
Perlでそんなこと出来るの？

859:nobodyさん
08/02/05 23:37:33
WindowsAPI使えば、プロセスの終了とかできるかも

860:857
08/02/05 23:49:41 LtG8FBU3
>>857です。

>>858
返信ありがとうございます。windowsプログラミングについてもさっぱりなんですが
>>859さんのおっしゃるようにwin32api系のものを使えば出来そうな気がしたんですが。
linuxとかだとsystem(kill～って感じでそのまま出来るんですかね。

>>859
返信ありがとうございます。
プロセスの終了も良く分かってないんですが、その辺の仕組みを僕くらいの低レベルでも
わかるように紹介されてるページとかご存知でしたらご紹介頂けたら幸いです。

861:nobodyさん
08/02/06 00:20:44
残念ながらそれはwebprog板では板違いなのだ。

862:nobodyさん
08/02/06 10:22:36
Kent
CGI.pm
Mason
Sledge
Catalyst
Jifty
Reaction
間にいろいろハサんで欲すぃ

863:nobodyさん
08/02/06 10:35:41
おっとCGI::Applicationを忘れていた
Kent
CGI.pm
CGI::Application
Mason
Sledge
Gantry
Catalyst
Jifty
Reaction

864:nobodyさん
08/02/06 11:59:40
system "taskkill /im calc.exe";

865:nobodyさん
08/02/06 16:07:31
ん？しりとりでもやりたいのか？ｗ

866:nobodyさん
08/02/06 17:39:26 z242xw4+
すいません、質問お願いします。
一行テキスト　と　テキストエリア　と　送信ボタン　と　hiddenがいくつか　のフォームを作りました。
jcode.plを通して、デコードする仕組みにしました。

テキストエリアに、６００文字以下の、少ない全角文字を入力し、送信ボタンをクリックすると、
ログファイルに記載され、意図した表示になるのですが。

テキストエリアに沢山の文字（662文字以上）を入れ、送信ボタンを押しても反応しません。

perlには、フォームに入力する文字制限などがあるのでしょうか？
600文字程度ですと、使用目的では文字数が足りないので、なんとか直したいのですがどうしたらよいでしょう？

867:866
08/02/06 17:42:41 z242xw4+
追記です。

IE6だと、ボタンをクリックしても無反応なのですが。

FireFoxだと、一応書き込みができました、
しかし、やはり全角文字600文字程のところから後が切れて、ログファイルに記録されます。

また、全てが半角の数字を入力した場合には、何文字でも入力できる感じです。
宜しくお願いします。

868:866
08/02/06 17:50:10 z242xw4+
すいません。訂正です。

半角数字でも、１０００文字程度しか書き込みができませんでした。

869:nobodyさん
08/02/06 17:50:25
method="POST"

870:nobodyさん
08/02/06 17:51:53
enctype="multipart/form-data"

871:866
08/02/06 18:04:28 z242xw4+
>>869,870
ありがとうございます
メソッドをポストにしたら出来ました！

872:nobodyさん
08/02/08 17:15:00
#!/usr/local/bin/perl
eval { $test=; };
print "fin"

この三行スクリプトを実行するとfinが表示されずに

syntax error at test.pl line 2, near "=;"
Execution of test.pl aborted due to compilation errors.

が表示されるのは正常なActivePerl(forWin)およびevalの振る舞いですか？

873:872
08/02/08 17:24:04 ZczohSgB
上げ忘れ。
ActivePerlのperl -vはPerl v.5.8.8 / build817です。

874:872
08/02/08 18:04:44
わかた(´д｀)y-~~シンタックス系のいわゆるコンパイルエラーはevalで拾えないようで、
拾えそうなｲｷﾌﾝで記述してあるリファレンスが誤りです。大変ありがとうございました。

875:nobodyさん
08/02/08 18:57:59
eval q{ $test=; };
$@

876:797
08/02/14 15:20:19
おまいら解決したので報告します。

実は>>798が教えてくれたページを参考に作ったプログラムだったのですが、そこに罠があったのです。
ファイル名をSJISにするということで、アップページの文字コードもSJISにしていたのですが、
SJISで特定の文字(表、ソ、十など)にはWindowsでパスの区切りに使う\のコードが入っているので、
その部分が区切りと解釈されて、ファイル名が切られていたのです。
そこで、アップページの文字コードをUTF8にした所、切られることなく正常動作するようになりました。

おまけ
最近遭遇し一応解決したネタを１つ。
なぜか、CGI::LiteとIE6(最近のパッチ以降？)の組み合わせで<INPUT type="file">が複数連続すると、
途中のファイル名が取得できません。ダミーで<INPUT type="hidden">を挟むと大丈夫です。

877:nobodyさん
08/02/14 16:19:19
おまそれはPerlの一番最初に習う、しかも新規の人は既に誰も使わな（ry

>なぜか、CGI::LiteとIE6(最近のパッチ以降？)の組み合わせで<INPUT type="file">が複数連続すると、
あーわかるわかる。初心者にありがちなバグだね。
おれもHTTP拡張のバウンダリ周りで苦労した。10年ぐらい前に。

878:nobodyさん
08/02/18 22:53:11 b8HgX1gh
お願いします。
配列、@listの中には5つの要素が入っています。
そのなかの3つ目を削除するにはどうすれば良いですか？
$list[3] = ''; だと中身が空のまま要素数は変わりません…。

879:nobodyさん
08/02/18 23:31:32
splice @list, 2, 1;

880:878
08/02/19 00:10:37
>>879さん、ありがとうございました。

881:nobodyさん
08/02/20 18:43:38
ここって超初心者の板じゃないの？
モジュール関係の質問見ると引くぞ
>>878のスレ見て少しホッとしたけど

882:nobodyさん
08/02/20 18:51:36
板とスレ
スレとレス

間違えてるぞ

883:nobodyさん
08/02/20 20:04:29 AT7Ymvry
掲示板で書き込んだ人のIPを取得するにはどうしたら良いのでしょうか？
$〇〇 = $ENV{'REMOTE_ADDR'};
でIPを取得したのはわかったんですが、ﾌｫｰﾑの中に<input type=hidden name=△△ value=$○○>などで他人に書き込みさせても自分のIPが表示されてしまいます
色々ググったりしたんですが良く分かりません
優しい解説お願いします

884:nobodyさん
08/02/20 20:25:09
>>883
hiddenタグでやろうとしていることがいまいち分からないが、
通常は、書き込んだ時にログファイルに一緒にIPアドレスを
書き込むものなんだが。

885:nobodyさん
08/02/20 20:30:56
>>884
スクリプトは時刻表示とコメントだけの、一行掲示板の簡易なものです
一緒にとはどういうことなのでしょうか？
ログファイルには時刻とコメントしか載りません
超初心者ですいませんm(_ _)m

886:nobodyさん
08/02/20 20:42:58
>>885
その、時刻とコメントを書き込むファイルに、IPアドレスも一緒に
書き込む方法があるでしょといいたいのだよ。
表示する際はそのデータは必ずしも出す必要は無いのだから。
それが嫌ならば、書き込みをしたときに内部的に別なファイルにも
IPアドレスと時刻を書き込ませるようにプログラムを書けばよい。

887:nobodyさん
08/02/20 20:55:23
>>885
フォームにセットしなくても、書き込んだ人のIPはこれで取り出せるよ → $ENV{'REMOTE_ADDR'}

888:nobodyさん
08/02/20 20:55:38
>>886
IPｱﾄﾞﾚｽを一緒に書き込むﾌﾟﾛｸﾞﾗﾑの書き方を知りたいんです(；∇；)/~~色々ググって、配布されてるｽｸﾘﾌﾟﾄから該当する部分を抽出して頑張ったんですが...良く分からなかったんです、

889:nobodyさん
08/02/20 20:57:55
>>887
レスありがとうございますm(_ _)m
それでIPは表示されるのは分かったんですが、それをどこに設置すればログに書き込んだ人のIPが表示されるかが分からないんです(；∇；)/~~

890:nobodyさん
08/02/20 21:04:58
>>889

open(OUT,">> log.txt");
$line = $ENV{'REMOTE_ADDR'};
print OUT $line;
close(OUT);

891:nobodyさん
08/02/20 21:07:00
>>889
コメントの後ろにくっ付けちゃえｗ

892:nobodyさん
08/02/20 21:14:53
aska とか kent の BBS にはログにIPアドレスを記録するコードは
あったはずだが。
それらを読んでも分からないのであれば、何処かに君が書いたソースを
うｐしてここに貼りなさい。気分が向いたら改変してやるからｗ

893:nobodyさん
08/02/20 22:19:30
先程はありがとうございましたo(^-^)oおかげさまで解決しましたｗ

もう一つ質問させて下さいm(_ _)m

($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time);
$week = $weekday[$wday];
$mon++;
$date = "$mon月 $day日 $hour:$min";
という時刻表示のｽｸﾘﾌﾟﾄ(年が無駄にあるのは気にしないで下さいｗ)を使ってる？んですが、$minの所だけを1ｹﾀの秒の時だけ01や02みたいに0を先頭に付けたいのですが、どのようにすれば良いのでしょうか？
ちなみに 2月20日 22:04
というような事です！

894:nobodyさん
08/02/20 22:24:58
>>893
printf使うとか。

また、例のごとくそれの使い方が分からないということであれば、
以下のコードを付け加える。

if($min>9){
$min = "0" . $min;
}

895:nobodyさん
08/02/20 22:40:01
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$d,$d) = localtime;
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d", $year+1900, $mon+1, $mday,
('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday], $hour, $min, $sec);
print $date;

896:nobodyさん
08/02/20 22:48:10
>>893
これはどうなの？
$date = sprintf("%2d月%2d日 %2d：%02d",$mon,$day,$hour,$min);
print $date;

897:nobodyさん
08/02/20 22:53:59
>>895
$dは無くても良いぞ。
どうしても書きたいなら、undefにすべし

それと、
my( $year, $month, $day, $hour, $min, $sec, $wday ) = ( localtime() )[5,4,3,2,1,0];
って言うのを覚えると見た目に麗しい

898:nobodyさん
08/02/20 23:05:01
perlは配列の要素が足りなければ
足りない分の後ろの要素は無視されるから
必要なければ書かなくてよろし

899:895
08/02/20 23:06:42
>>894が正常に動かない気がして5年も前に書いたやつ貼っただけだから

900:nobodyさん
08/02/20 23:12:33
下らない質問に親切に答えていただいて本当にありがとうございました！
23:06 とかできました(゜∀゜;ノ)ノ

また何かあったらよろしくお願いします!(b^ー°)

901:nobodyさん
08/02/20 23:34:16
もう２度と来るな

902:nobodyさん
08/02/21 03:45:40
>>897
$wday いらね

903:nobodyさん
08/02/21 09:53:00
>>902
あぁ、ほんとだ。

次ページ