検索結果

http://hole.sugutsukaeru.jp/archives/10 こちらのサイトでPerlでのファイルのアップロードを行なおう思い、 作成しているのですが、 エラーになり表示されません。 コードを貼り付けると、 #!/usr/bin/perl -w #使用するモジュールをロード use File::Basename; use CGI; #変数宣言 my ($form, $dir, $filename, $parsename, @filename, $error, $ok, $type, $newfile, $i, $buffer, @ext_ok); #ファイルを保存するディレクトリを設定 #（CGIの実行ユーザで書き込み権限が必要） $dir = './files'; #受付可能な拡張子（正規表現） @ext_ok = qw ( txt zip pdf doc cgi ); #CGIオブジェクトを作成 $form = new CGI; #転送できるファイルの最大サイズを設定 #（実際は、post送信されるコンテンツ合計の最大サイズ） #この値は、CGIオブジェクトを作成する時には既に #設定されていなければならない $CGI::POST_MAX = 1024 * 1000; #max = 1MB #CGIオブジェクトを作成 $form = new CGI; #クライアントにヘッダを送信 #これは、結果メッセージ表示のため binmode STDOUT; print "Content-Type: text/plain;charset=euc-jp\r\n\r\n"; #ファイルの転送のチェック if (!defined($filename) and $error = $form->cgi_error){ #ファイルが転送されていなかったら、$filename は 未定義値となっている。 #フォーム上でファイルを選択しないままフォームがサブミットされた場合は、 #通常はこの変数 $filename は空文字列として定義されている（＝未定義ではない）。 #このため、以前のバージョンでは $filename が定義されている #かどうかをエラーの判別の基準としていたが、 #2007年3月 Mac OS X 上の Netscape 7.1 で試したところ、 #ファイル選択されていない場合に未定義値になることが判明。 #このため、エラーの場合に設定される（筈の）値 $form->cgi_error も判別の #基準に追加した。 print "ファイルが転送できませんでした：$error\n"; exit; } if ($filename) { #ファイルが転送されていれば、値は真 #ファイルパス内の「\」を「/」に変換 # $parsename には、送信元クライアントマシン内での #ファイルパスが格納されている。 #注：Shift_JISで実装する場合、このあたりには工夫が必要。 $parsename =~ s#\\#/#g; #ファイル名を（ベース名, ディレクトリ名, 拡張子）に分解 @filename = fileparse($parsename, "\.[^\.]+"); #ベース名のチェック（アスキー文字列であること） $filename[0] =~ /^[\.\w~-]+$/ and $filename[2] =~ /^[\.\w-]+$/ and $ok = 1; unless ($ok) { $error = 'ファイル名は、半角英数字にして下さい。'; print "ファイル転送ができませんでした。: $error\n"; exit; } $ok = 0; #フラグのリセット #拡張子のチェック foreach (@ext_ok){ $filename[2] =~ /^\.$_$/ and $ok = 1 and last; } unless ($ok){ $error = "許可されていない拡張子($filename[2])です。"; print "ファイル転送ができませんでした。: $error\n"; exit; #サーバ側ファイル名の決定 #まず、セッションごとに一意のディレクトリ名を作成 while (-d "$dir") { $dir = $dir.'/upload_'.&gen_unique_key(15); } #ファイルを格納するディレクトリを作成 unless (mkdir($dir, oct(777))){ print "保存ファイル用ディレクトリの作成に失敗しました。: $!\n"; exit; #サーバ側のファイルパスを設定 $newfile = $dir."/".$filename[0].$filename[2]; #既に同名のファイルが存在した場合 #（複数の同名ファイルを同時にアップロードした場合など）は、 #ベース名にアンダースコアと番号を付けて別名にする $i = 0; while (-f "$newfile"){ $i++; $newfile = $dir."/".$filename[0]."_".$i.$filename[2]; } #ファイルの保存 unless (open (OUTFILE,">$newfile")){ print "サーバ側の保存ファイルの作成に失敗しました。: $!\n"; exit; } #保存用ファイルを無事 open できた場合 #改行コードの自動変換を停止 binmode (OUTFILE); binmode ($filename); # $filename から内容を読み出して #保存用ファイルに書き出す #この場合、変数 $filename はファイルハンドルとして #機能する while (read($filename,$buffer,1024)) { print OUTFILE $buffer; #ファイルを close して終了メッセージを表示 #この場合、$filename は、送信元クライアント #マシン内でのファイルパス（ブラウザが送信してきた値）を返す close (OUTFILE) and print "送信されたファイル ($filename) を右のファイル名で保存しました： $newfile\n" or print "サーバ側の保存ファイルのクローズに失敗しました。: $!\n"; } else { # ファイルが転送されていない場合 # $filename は 偽 print "ファイルはアップロードされていません。\n"; } #一意の文字列を作成するための関数 sub gen_unique_key($){ #生成する文字列の長さを引数で指定 my $length = shift; my ($i, $tempval, $key, $chars, @chars); #引数で指定された文字列長さが、 # 5以上 30以下の数値でない場合、15に設定 #（範囲は、長からず短からず...。） ($length =~ m/^\d+$/ and $length >= 5 and $length <= 30 ) or $length = 15; #使用する文字を指定（ディレクトリ名として使用できる文字を指定する） $chars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890~-_'; @chars = split(//, $chars); #乱数のタネを作る srand(time|$$); for ($i=0; $i<$length; $i++){ # @chars 配列の最大の添字までの乱数を生成する $tempval = int(rand(scalar(@chars))); $key .= $chars[$tempval]; } return $key; } となりますが、どこが間違えているのでしょうか。 上記コードは、サイトからのコピペになります。 よろしくお願いします。

imacですが、修理するか買い替えるかで悩んでいます。 ハードディスクにデータを詰めていたので、重くなってしまい調子が悪かったのですが、サファリも使えなくなり、スマートエラーが出ている状態です。 時々フリーズすることも増えました。 OSXの2012年モデルなのですが、5万で修理するか、12万で買い替えか... どちらがいいでしょうか？ 修理してもそんなに長く使えるものではなないのでしょうか？ 修理が大体何年くらい使えますか？もちろん個体差はあると思いますが、、 みなさんのエピソードなどお聞かせいただければ嬉しいです。 修理しても1、2年でまた悪くなるなら それなら買い替えたほうがいい気もするし、でも今のmacもまだ使えるし勿体ないけどこのまま使うには不便すぎるので悩んでいます... みなさんならどうされますか？

名前出しちゃってすいません。 マクドナルドなんですが、今売っているソフトクリームの量って規定あるんですかね。いつも作ってくれる女の子はわりと高さもあって、チョコの量もクリームの量もわりと多目。その人じゃなくてもそうだったんですが、今日作った人、おじさんでした、多分偉い人。で、いつもの量の半分しか高さがない、全体に少なかったです。 同じ料金払って損した気になりました。 しかもいつもよりあまりおいしくない、、 これってありですか？

自分はあまりPCのことわからなくてPC買うときいつも迷ってしまいます。 今回外でも使えるノートPCの購入を考えています。 ちなみにアドビのソフトなどはよく使います。 どっちがいいのか...

未だ未発売のものも含め 今冬最速だ と、思う １５インチディスプレー以上の ノートパソコンて どれですか？ お教えください。 尚、用途は CADとExcelVBAです。 数十ギガに及ぶ Excelファイル 此を扱える と、有り難いです。 今使っているディスクトップは 旧式のワークステーションです が、 数十メガのファイルサイズで エラーは出るわ、鈍重になるわ で、使い物にならなくなります。 旧式のコア２DuoマックノートProでは 数百メガでも動きました が、 VBA駆動中に ロジックボードの 何かを焼いたのか 壊れました。 また、 ディスクトップ同様に 鈍重になるのは同じ事 尚、 Excelのバージョンは ワークステーション、Mac、 共に２０１１以降です。 ディスクトップの方が早い 此は判ります が、事情があります。 ですので、 ノートでお願いします。

ELECOMのEX-Gを先日購入しMACBOOKで使用しています。 接続も無事にできてマウスアシスタントで各ボタンの機能割り当ても行いましたが、割り当てたボタンが機能しなくて困っています。 割り当ててないボタン　ホイールのスクロールや右左クリックなどはできます。 問題があるとすれば初期設定の時にキーボードの識別？shiftキーの横のボタンを押す画面の時に押してもマックのキーボードとは反応合ったのですが「その他のボタンを押して」という画面で押しても反応がないのでスキップしたのが原因でしょうか？ 色々調べたのですが解決策が見つからず投稿させていただきました ※OKWAVEより補足：「エレコム株式会社の製品」についての質問です。

M-RT1DRBKをMacで使おうと購入しましたが 全く動きません。 OSはhigh sierraでしたがBig Surにアップデート しました。 VAIOでは動いたので故障ではないと思います。 OSがmojaveじゃないとダメなのでしょうか。 お分かりになる方宜しくお願い致します。 ※OKWAVEより補足：「エレコム株式会社の製品」についての質問です。

AppleMusicやYouTubeの音源を聴いてばかりでした。 たまたまDVD audioをSATXのイアスピーカーで聴いたら驚きました。 あまりのクリアで深い音でもう他は聞きにくい感じになりました。 今はハイレゾ音源が買える時代です。 YouTubeの再生音を考えてましたが、少し考え方を変えた方が良いでしょうか。SACDもわずかに持っています。 音質の良いプレイヤーかレコーダーを安く欲しくなってきました。 ブルーレイレコーダーは古いもの持っています。オプティカル出力が付属してます。どの音源に対応してるか調べます。 テレビはほとんど見ません。 虜になるような音質の良い録音は今はブルーレイの時代でしょうか。 それともダウンロードする高音質音源でしょうか。

PCとTEAC UD-5０5をUSB接続で使用中です。一応、USBにはノイズキャンセラーを取り付けていますが、PC本体から発生するノイズ低減のソフトウエアはありますでしょうか？ヘッドフォンは使わずにスピーカーで聞いています。また、マイクのノイズ除去ではありません。 そうぞ、よろしくお願いいたします。

副業目的で現在imacインテルを使っていますが 10年以上となり、調子が悪くなっています そこで、imacインテル（新品）か、imac　m1か、中古のimacインテルか 悩んでおります 中古の場合は最低でも何年前が良いでしょうか？ ご意見お願いします

macbookproの購入を検討しています。 予算の問題で、128Gにしようかと考えていますが、 主に写真用なので、Photoshopが使えればいいのですが、(可能ならimovieも) 128Gだと心許ないでしょうか？ imacにする方がいいかも悩んでいます。。 また、macbook Airならproにした方がいいのでしょうか？ 主にphotoshop/imovieくらいの作業です。

8GBしかない2013年製造のマックのノートパソコンを使っています。 以下の状態です。 種名: MacBook Pro 機種ID: MacBookPro11,1 プロセッサ名: Dual-Core Intel Core i5 プロセッサ速度: 2.4 GHz プロセッサの個数: 1 コアの総数: 2 二次キャッシュ（コア単位）: 256 KB 三次キャッシュ: 3 MB ハイパー・スレッディング・テクノロジ: 有効 メモリ: 8 GB 今、本当に困っています。 メモリの増設ができない機種なので、アップロードは出来る限りしないでいたのですが、昨年、とうとう何かの拍子に自動アップロードされてしまって、今、使いもしないアプリだらけで、空き容量が全くない状態で、ワードさえもろくに使えません。 買い換える余裕がないのと、今必要な機能はそれほど高くなく、いらないアプリを捨てれば済むことなのですが、どのアプリも削除できないのです。Launchpadで開いてもプルプルするだけで×がつくアプリがありません。 AppClearを入れる容量さえもない状態で、どうにも困っています。 何か方法をご教授いただけないでしょうか。

プロジェクターEH-TW7100とEH-TW5750で悩んでいます。 ２台目です。ちなみに、iMacとiPhoneSEです。スクリーンは110インチです。スクリーンとの距離は３メートルです。 Bluetooth希望です。AirPodsで聞きますが、問題ないでしょうか？ この２機種の差はどのようなものでしょうか 初心者です。 ※OKWAVEより補足：「EPSON社製品」についての質問です。

最近MacBook Airを買い替えました。そうしたらUSB-Cのコネクションに変わったのですが、そこで質問です。iPadや外付けのDVDなどApple商品を繋げるには、アップル商品のUSB-C Digital AV Multiport Adapterが必要なのでしょうか？

macbook proの中古を買ってpremieを入れたいと思っています。 premiere pro 2020が入れられるmac osは何年のモデルからでしょうか？

EP-M552T は印刷の際　反転　出来るのでしょうか？ ※OKWAVEより補足：「EPSON社製品」についての質問です。

QUAD-CAPTUREを購入したものの、付属のCDソフトが使えない状態のためネットでダウンロードしようとしたところうまくいきません。 私のパソコンはMacbookpro13インチのM1チップのため対応していないためでしょうか？ intelは対応と書いてあったのですが、M1はまだ非対応なのでしょうか？ また、M1でもダウンロードできるサイトや、今後M1でもダウンロードできるようになるのでしょうか？ ※OKWAVEより補足：「電子楽器メーカーローランド製品、ボス製品」についての質問です。

いまimac(os10.10）でGoogle Chromeを使用していますが 「この接続ではプライバシーが保護されません」というメーッセージでサイトが見られないことが多くなりました。 これについてはChromeが10.10に対応していないので諦めました。 そこでサブ機のimac(10.13）で10.10で使用しているChromeの設定だけ（お気に入りやパスワードなど）丸ごと移行したいのですがどうすればよいのでしょうか？特にパスワードの移行がわかりません。 よろしくお願いします

タイトルの通り、 PC用のワイヤレスイヤホンを探してます。 スマホのワイヤレスはたくさんあるのですが、 これらは同時にPCにも使えるのでしょうか？ PC用のワイヤレスイヤホンを教えて下さい。 できれば、 １万円以下だと助かります。 宜しくお願いします。

ＭＳ－ＤＯＳからWindowsになってからパソコンには全く無知に近い素人です。 今回ＸＰがサービス停止で大騒ぎしています。 そこで質問なんですがＭＡＣのＯＳでは一定期間以後サービスが終了して使えなくパソコンってあるのでしょうか？ 昔のＭＳ－ＤＯＳでは上向きの互換性と言ってパソコン自体を買い変える事はしなかったものですが何か納得出来ない素人ですが宜しくお願いします。