line複数ある添付ファイルモジュール
ただ、１つ問題が…１つのじょうほうにたいしてさいこうで3つのがぞうを登録したいんです。とうろくする為のフォームもたぶんせっちできるとおもいます。掲載したがぞうをひょうじしたりするほうには何の問題もありません。よろしくおねがいします。Perlスクリプトがじっこうできない？？どうやったらじっこうできる？まえにPerlスクリプトをじっこうするさいに、まず、ＰＣになにかインストールしてからじっこうできるようになったのを覚えています。どなたか教えてください。データベースCGIの改造ホームページじょうにデータベースを掲載しようとかんがえています。もし、むりなようならダウンロード後にuse File::Copy; のmoveをつかってしていパスに移動してもよいのですが、してい方法がわかりません。1.画像はそのじょうほうのばんごう+「-1～-3」を付ける。(サブルーチンの書き方といえば良いのでしょうか?)画像アップじのルール(?)はいかのものです。windows2000をしようしています。以上、おねがいします。がぞうのアップのほうほうとへんこうの方法をしりたいです。(もし、じょうほうばんごうが10番なら10-1.jpgと10-2.jpg、10-3.jpgがとうろくできる)2.けいさいできるがぞうはjpgかgifのみ3.とうろくはかんりしゃのみがするので、がぞうサイズの修正・固定やほかのかくちょうしのものがにゅうりょくされたら…などはひつようないとおもいます。実行するとERROR:cmd～～:Cannot start command. (perl.exe ～～.pl 1152 864) とでています。が、このCGIには画像アップローダーが付いてません。じぶんなりにかんがえたのですが、方法がさっぱりです。FTPでダウンロードするときのパス指定リモートからダウンロードするときにパスしていをしてローカルにファイルをゲットしてきたいのですが、getするとき、パスしていのほうほうがわかりません。パソコンを再インストールしたのですが、何をインストールすればじっこうできるようになるか忘れてしまいました。いくつかのこうもくごとに検索ができるようにしたいので、Ｗｅｂうらわざさんの「かんいデータベース」を元にさくせいしようとかんがえています。
中身行
その２つのテキストファイルはそれぞれ既製のCGIが書き出すものなのでそのフォーマットが変えられないのですが、下のように、かたほうは電話ばんごうがハイフォンいりで、もうかたほうはハイフォンなしのものなのでたんじゅんに「if ($a eq $B)......」では合致するものを抽出できません。「ー」をさくじょするとスカラーのあたまの０がきえてしまいます2つの外部テキストをよみこんで、でんわ番号をたよりにコードばんごうと電話ばんごうをむすびつけるCGIを作ろうとしています。ハイフォンのさくじょ処理をしてもあたまの「０」がきえないようにする方法はないでしょうか？わたしはPerlのちしきが非常にあさいので、「$」がついているからにはすうちでなくもじれつのはずだからあたまの「０」はきえないだろうとおもっていたのですが、「$denwa =～ s/-//g;」なんてかたちでハイフォンをさくじょするとすうち扱いになってしまうのでしょうか？この電話番号には時々あたまにくにばんごうがついて「494332112233」のようになることもあるので、あたまにゼロがないデータにたんじゅんに０をつけくわえるということも出来ません。 コード,電話ばんごう,生年月日01491,03-5432-1234,1998122474465,06-9876-0001,19981224 ・ ・でんわ番号,メールアドレス,生年月日0354321234,abc@okwave.ne.jp,199812240698760001,wxyz@goo.jp,19981224 ・ ・そこでかたほうのテキストファイルからよみこんだデータから「ー」を削除してやろうと、$denwa =～ s/-//g;というぎょうを入れました。しかし、これを実行したけっかマッチするデータがでてこなかったので$denwaの中身がどう変換されているかを確認したところ、「03-5432-1234」は「0354321234」とならずに「354321234」になってしまっていました。
画像の解像度を落とすプログラムネットで画像を登録できるようし、HTMLで表示するような仕組みをperlを使って作りました。問題が一つ発生しました。デジタルカメラなどでとってきたものをそのまま登録した場合に画像が重過ぎてネットで画像をアップするのに非常に困難になります。そのためある一定の数値以上の解像度だった場合は決められて数値まで解像度を落としてアップするperlを考えています。どうか教えて頂けないでしょうか御願します。perl5.8のエンコードで悩んでますperl5.8のエンコードで悩んでいます。5.6
<br>にゅうりょくないようは${message_data}</p></body></html>END_OF_HTMLexit;両ファイルともTeraPadをりようして、もじコードはUTF-8N、かいぎょうはLFにしています。デジタルカメラなどでとってきたものをそのまま登録したばあいにがぞうがおも過ぎてネットでがぞうをアップするのにひじょうにこんなんになります。＜＜そうしんもと post1.html＞＞<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "<html xmlns="<head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /></head><body><p>POSTじっけん</p><form id="form1" method="get" action="post2.cgi"> <p>data1 <input name="data1" type="text" /> </p> <p>data2 <input name="data2" type="text" /> </p> <p> <input type="submit" name="button" value="そうしん" /> </p></form></body></html>＜＜受領ぶ post2.cgi＞＞#!/usr/bin/perl#モジュール利用宣言use CGI; #CGIモジュールuse strict; #ひょうきのせいきかをきょうせいuse warnings; #けいこくひょうじuse CGI::Carp qw(fatalsToBrowser); #エラーほうこく有効#エンコーディングのしてい#use utf8; #この部分をゆうこうにするとにゅうりょく内容が文字化け#use encoding 'UTF-8';#これもどうようににゅうりょくないようがもじばけ#データのじゅりょうとへんすうめいせいりmy $input_data = new CGI; my $in_data1 = $input_data->param('data1');my $in_data2 = $input_data->param('data2');#にゅうりょくチェックmy $message_data = ""; #変数しょきかif($in_data1 eq "" && $in_data2 eq ""){$message_data = "にゅうりょくぶに空欄があります";}else{$message_data = 'Data1は'.$in_data1.'Data2は'.$in_data2.'です';}#ヘッダはっこうprint "Content-type: text/html￥n￥n";#html表示print <<END_OF_HTML;<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /></head><body><p>サシスセソはSJISで化けるカタカナ。まず基本的なれんしゅうとして、POSTされたもじデータをじゅりょうするものをつくってみました。（コメントアウトするとふつうに表示されます）ちょっとばくぜんとしていて申し訳ないのですが、なぜばけるんでしょう…。しかしかわりすぎてキツい…でも今は5.8しようの文字しょりができないとあぶないのかなぁ…。perl5.8のエンコードでなやんでますperl5.8のエンコードでなやんでいます。しかし、use utf8;とかくと、入力もじが化けてしまいます。いろいろしらべてみたんですが、binmode STDOUT, ":encoding(utf-8)";とかをつけてもとくにへんかがありません…。問題が一つはっせいしました。どうかおしえていただけないでしょうか御願します。5.6かんきょうかでjcodeなどをしようしたいろいろな処理はふつうにできるのですが、そろそろ5.8での文字処理もちゃんとできないとあぶないかなとおもい、れんしゅうしていましたが…なんともきょどうが解らないときがあります…。よければご教授いただけるとさいわいです。そのためあるいっていのすうちいじょうのかいぞうどだった場合はきめられて数値までかいぞうどをおとしてアップするperlを考えています。画像の解像度をおとすプログラムネットでがぞうを登録できるようし、HTMLでひょうじするような仕組みをperlをつかってつくりました。