回答数
気になる
-
Perl の外部モジュールの利用方法
Lolipopサーバー(Perl Ver. 5.010001 (5.10.1))で 標準インストールされていない Email::MIMEをユーザーディレクトリにコピーして使おうとしていますが エラーで使えず困っています。 過去に CGIと同じディレクトリに外部モジュール(単体 pm)を設置して利用したことがありますが 今回 Email::MIME は pmファイル単体ではないので、ディレクトリ単位で 別ディレクトリに設置したところエラーになります。 今まで外部単体モジュールしか利用したことがないのですが、今回ディレクトリ単位で 別ディレクトリにコピーして利用する場合のサンプルや説明が探せません。 実際のコードを載せようとしましたが gooのセキュリティポリシーで コードが弾かれるようで載せられないので問題部分だけ倍角で記述します。 use lib ’../../lib’; use Email::MIME; でエラーが出てしまいます。 Emailモジュールディレクトリは usr---- bin--- sample---- sample.pl |--- lib--- Email---- MIME.pm |---- その他の関連 .pmファイル&フォルダ にコピーしています。 ちなみに MIME.pmと関連ファイル/ディレクトリを 同じディレクトリにコピーして(属性:755) use lib qw(./); としてみましたがエラーは解消しません。 # use Email::MIME; とコメントアウトすればエラーは出ません。(MIME関連コードはまだ未記述です) Windows/local では Email::MIME をインストールしてしまったので 確かめられません。 use FimdBin; use lib ”$FindBin::/lib”; とか、フルパスでも試してみましたが、エラーは消えません。 ざっと見たところでは、MIME.pm 中で use宣言されている他のモジュールは 全て存在するか、内部モジュールとして使用可能です。 どうすれば外部に置いた Email::MIME が使えるようになるか、 あるいはディレクトリ下の .pmモジュール利用の サンプルや説明ページを教えていただけないでしょうか。
質問日時: 2022/07/10 18:34 質問者: soso_516
ベストアンサー
3
0
-
perlで2次元配列をサブルーチンに値渡しで渡す
perlを勉強中ですc言語は大体理解できます。 標準入力から2次元配列の行数と列数を読み込んで、 さらに標準入力からその2次元配列の各要素を読み込み、 その2次元配列をサブルーチンに値渡ししたいのですが、 変数の使い方をどのようにしたらいいかわかりません。 実現方法を教えて!goo
質問日時: 2022/12/17 18:49 質問者: MenPin
ベストアンサー
5
0
-
テキストファイルで提出とは?
「レポートの提出は解答を記入したテキストファイルをアップロードしなさい。」と大学から連絡が来たのですが、テキストファイルというのはWindows内のメモ帳のことですか?
質問日時: 2021/02/10 08:53 質問者: あいうぇ
ベストアンサー
6
0
-
4
vlookupがうまくいきません、教えてください
vlookupがうまくいかず困っています。教えてください。 元データ フラグ(D-E列) あいうえお APP かきくけこ IHPF というデータがあります。 [う]が含まれるデータを抽出し、フラグの[APP]や[IHPF]を表示したいです。 添付のファイルではI列に VLOOKUP("*"&H2&"*",$D$2:$E$4,2) と記入したのですがエラーになってしまいます。 どうすれば、特定の文字が含まれる単語を元にVlookup出来ますでしょうか
質問日時: 2021/09/23 10:48 質問者: nazo0719
ベストアンサー
2
0
-
5
PerlでUTF-8のファイルの文字列置換をワンライナーで行いたい
Perlで、UTF-8のテキストファイル内の文字列置換をワンライナーで行いたいのですが、可能でしょうか。 現状は、以下のような書式を実行しています。 perl -pi.bak -e "s/置換前/置換後/gi;" "入力.txt" しかし、上記ですと、入力ファイルの文字コードがUTF-8では処理されません。 UTF-8のファイルを処理するにはどのようにしたら良いでしょうか。ワンライナーでは無理でしょうか。 環境は、Windows10、ActivePerl(perl 5, version 28, subversion 1 v5.28.1)です。 ご存じの方がおられましたら、お教え頂けると有難いです。
質問日時: 2019/10/15 16:40 質問者: willow75
ベストアンサー
6
0
-
6
プログラマーになるにはどうすればいい?
Perlで作られたサンプルプログラムをコピペして株の自動売買プログラムやフリーの掲示板を若干書き換えたりする程度の技術しかありません。サンプルを適当にはめて動作すれば使う程度ですので信頼性も低いです。エラーが出たら基本的には握りつぶし、他のチェックソフトを作成してプロセスを監視してkillして無理やり再起動させるなど個人で動くようなプログラムを使うことに特化しておりこのままでは企業では使えないと思っています。自分がする作業を自動化するために使っていました。 また、事情(精神的な問題)があり1日数時間程度しか仕事ができません。この状態で仕事で使えるプログラマになるにはどんなルートが近道でしょうか?
質問日時: 2019/01/05 09:33 質問者: elee_f
解決済
2
0
-
7
perlのrequireの動き方についての質問
main.cgi: require './a.cgi'; RequireFile('./b.cgi'); a.cgi: sub RequireFile { require $_[0]; SubXXX; } b.cgi: sub SubXXX { return; } このような3つのcgiファイルがあったときサブルーチンの定義はうまく行われるでしょうか main.cgiから処理が行われる順に説明を受けたいです よろしくお願いします
質問日時: 2022/10/30 17:27 質問者: MenPin
ベストアンサー
2
0
-
8
perlの構文でカンマの意味が分からない
CGIの勉強をしているのですがネットからCGIのサンプルソースを持ってきて調べていたら よくわからない構文が出てきたのでどういう意味か教えてほしいです。 sub RequireFile { my $customfile="$CUSTOM_DIR/$_[0]"; require $customfile,return if -e $customfile; my $fname="$INCLUDE_DIR/$_[0]"; OutError('ファイルが見つかりません - '.$fname) unless -e $fname; require $fname; } このサブルーチンの記述の4行目のreturnの前のカンマはどういう意味がありますか?
質問日時: 2022/10/30 01:53 質問者: MenPin
ベストアンサー
2
0
-
9
perlについての質問
現在jumanでの形態素解析結果を用いてプログラムを書いております。 perlで、句点が出てきた場合、その前の4行を削除し、そこに新しい文章を加えたいのですが、やり方がわかりません。 どうしたらいいでしょうか?
質問日時: 2022/10/01 15:38 質問者: やまう
ベストアンサー
1
0
-
10
Windows10においての『Perl』のプログラムについて
Windows10においての『Perl』のプログラムについて質問です。 以前PCにPerlをインストールしたので、Perlのプログラムを流したところうまく流れず以下のようなメッセージが出ました。 ---------------------------------------------------------------- Could not find project file at E:Perl-5.32 ---------------------------------------------------------------- これは >perl -v とやっても出ます。 ちなみにこれが出た時の私のPCのフォルダ構成は「Cドライブ」にプログラム、「Dドライブ」にデータ、「Eドライブ」が外付けHDDです。 これはPerlがインストールされてないということでしょうか? すみませんが、どなたか回答よろしくお願いします。質問です。
質問日時: 2022/05/09 16:04 質問者: rie78
ベストアンサー
1
0
-
11
Perlで特定文字列から特定文字列までを抜き出したい
皆さんのお知恵をお貸し頂ければ幸いです。 Perlで以下のようなことをしたいと考えています。 例えば、次のようなテキストファイルがあったとします。 example.log ================================== aaaa dada START hogehoge test okok perl dodo END script ================================== 上記ファイルを読み込んで、「START」から「END」が含まれた間の行だけ抜き出したいのです。 イメージとしては、読み込んだファイルを一行づつ読ませ、キーワード「START」が現れたらそこでフラグを立て、それ以降の行を表示し、キーワード「END」が現れた時点で表示を止めるという処理になるのかな?と思っています。 このような場合、どういう風にすればいいのでしょうか? 恐れ入りますが、ご教授頂ければ幸いです。 それでは、どうぞよろしくお願い致します。
質問日時: 2022/04/02 14:24 質問者: damdam111
解決済
4
0
-
12
INDIRECT 横に再度抽出したい
INDIRECT("'"&$A$2&"'!I2") =INDIRECT("'"&$A$2&"'!I"&ROW(A2)) =INDIRECT(ADDRESS(ROW(I2),COLUMN(I2),,,$A$2)) だと縦、横どちらにも対応するか。 以上のように、お教え頂いたものをオートフィルできました。しかし、これを横にしてしたいと 思いやってみますが、どうしてもうまくできません。データは下記に示します。 I J K L M 4 13 6 7 12 9 10 4 14 14 15 20 17 18 4 15 22 23 28 25 26 4 16 30 31 36 33 34 4 17 38 39 44 41 42 このように、=INDIRECT(ADDRESS(ROW(I2),COLUMN(I2),,,$A$2)) で抽出しました。 縦の I6~38を横にしたい。その他のところも J7~39・K12~44・L9~41・ M10~42も同じように縦を横に長く表示したい。また、抽出する別シートの元データは 上記のような配列になっている。この他に70ページほどのデータがあるので、関数か マクロでどうにかなりませんか。よろしくお願いします。
質問日時: 2021/11/10 23:23 質問者: ihuyi
ベストアンサー
3
0
-
13
Wallpaper Engineでおすすめの壁紙教えてください; ;
Wallpaper Engineで今こんあ壁紙を使ってるのですが飽きてしまって...何か良いのないですかね?
質問日時: 2021/09/04 23:48 質問者: 無名な名無し
ベストアンサー
1
0
-
14
perlのgrepでmyを付けた場合と付けない場合とで結果が違うのが分からない。
最初にmyを付けない場合 @list=('a', 'aa', 'v', 'b', 'gg', 'x', 'def', 'ws', 'super', 'dd', 'wed', 'swd'); $key=grep{$list[$_] eq 'super'} (0 .. $#list); print $key; この時の実行結果は、1を示す。明らかに値は可笑しい。 次に、myを付けた場合 @list=('a', 'aa', 'v', 'b', 'gg', 'x', 'def', 'ws', 'super', 'dd', 'wed', 'swd'); my($key)=grep{$list[$_] eq 'super'} (0 .. $#list); print $key; この場合の実行結果は、8で正しい値を示します。 この両者の違いが分からない。何が原因をしているのだろうか。 その仕組を説明願います。
質問日時: 2020/05/24 18:53 質問者: usui-2015
ベストアンサー
1
0
-
15
Perlで、「が」を、「が」に戻す方法
Perlで作ったcgiで、ブラウザから文字入力してデータ保存するcgiがあるのですが、データの「が」が、「が」のように保存されてしまうケースがあります。 おそらく「か」+「濁点の゛」の2つに分かれてしまったのだと思います。 データは、EUC-JPでテキストで保存されています。 このデータ「が」を、「が」に戻す方法を教えてください。
質問日時: 2018/11/08 18:59 質問者: workpad30j
ベストアンサー
1
0
-
16
perlプログラミング 空白行削除
perlのプログラムで、入力文の空白行を消したいのですが、上手くいきません。 詳しい方教えていただけると助かります。
質問日時: 2023/01/28 17:58 質問者: やまう
解決済
4
0
-
17
Perlで時間の計算
例えば、こんなデータがあるとします。 $a = "19:31"; $b = "19:35"; それぞれ、19時31分と19時35分という意味です。 $bから$aを引いて、"00:05"という結果が欲しいのですが、Perlでどのように計算すればよいでしょうか?
質問日時: 2022/11/28 16:52 質問者: workpad30j
ベストアンサー
2
0
-
18
ベストアンサー
5
0
-
19
perlをバージョンアップしたら、今まで正常に動いていたプログラムが、エラーになってしまった
お世話になります。 Ubuntuのアップデート通知がうるさいので、このたび重い腰を上げて22.04.1 LTSにアップデートしました。 これにより自動的にPerlも5.34に上がったようです。 そしたら今まで正常に動いていたperlスクリプトがエラーになってしまいました。 同じエラーを再現するための必要最小限のコードを書き下ろしました。 #!/usr/bin/perl -w use strict; my($v, @a) = 0; @{0 < $v ? $a[0] : $a[1]}{'a', 'b'} = (0, 1) 見にくくてスミマセンが、配列の1要素にハッシュへのリファレンスを代入しています。 これを実行すると、 Can't use an undefined value as a HASH reference at ./try line 4. とのエラーが発生してしまいます。 しかし、バージョンアップする前(perl5.30か)では、エラーは発生しませんでしたので、少なくともperl5.30では、これは正しいコードと認識しています。 5.30から5.34までの0.04の間にどのような変更があったのでしょうか。 ちなみに変数$vを使わず直接0 < 0と書いたり、条件演算子の一方を配列でなく0 < $v ? 0 : $a[1]のようにリテラル値にすると、なぜかエラーは発生せず、ますます良く分かりません。 エラーが発生しないように、コードを書き替える事は可能ですが、できれば、この挙動の解説をお願いします。
質問日時: 2022/10/05 15:44 質問者: zyousuke
ベストアンサー
3
0
-
20
openした後、closeしないでプログラムを終了するとどうなりますか?
openした後、closeしないでプログラムを終了するとどうなりますか? すでにオープンされているファイルハンドルを再びopenしようとすると、まず自動的にクローズするとありますが、プログラム終了時はどうなのでしょう。 まあ、プログラム中でしかファイルハンドル使えないので、どっちでも変わらないと思いますが。。。
質問日時: 2021/06/11 06:30 質問者: zyousuke
ベストアンサー
4
1
-
21
phpとperl
phpとperl はどちらもapacheを使用しますが、同じPCの中でこれらすべてをインストールしてもよいですか。 phpの場合ーーーphp.iniを一部変更します。 perl の場合ーーーapacheの設定を変更します。 つまり同じapacheにおいて両方の変更をすることになりますが、問題はないのでしょうか
質問日時: 2018/09/09 16:27 質問者: houseroof
ベストアンサー
3
0
-
22
perlで複数のファイルの処理について悩んでいます。
perl初心者です。複数のファイルの処理について悩んでいます。 text-a ab ac bc text-b a,1 b,2 c,3 とのような二つのテキストファイルで、 text-aの文字の中に、text-bの左の文字が含まれているとき text-bの該当する文字の右側の数字を足して、text-aの右側に加えて書きだしたいです。 この例だと ab 3 ac 4 bc 5 という風にしたいです。 open closeなどは省いています。text-aは実際は他にも情報があって、その分プログラムが多くなっていますが、$a1 = text-a の文字の部分になるようにしています。 while($str = <FILE_IN1>){ chomp($str); @tmp = split(/\t/, $str); @tmp1 = split(/,/, $tmp[0]); @tmp2 = split(/,/, $tmp[1]); $a1 = $tmp1[0]; while($str0 = <FILE_IN2>){ chomp($str0); @tmp0 = split(/,/ , $str0); @b1 = @tmp0[1]; @b2 = @tmp0[2]; if($a1 =~ /$b1/){$a2 += $b2;}} print FILE_OUT1 "$a2,$a2\n"; } というプログラムを書いたのですが、数字を足して書き出す部分が上手くいかず、何故よくないのかさえわからない状態です...。 ご教示お願いします。
質問日時: 2017/11/13 00:36 質問者: hinata_coco
ベストアンサー
4
0
-
23
perlで文字の置換又は抽出に関する質問
perlで文字・数字の置換又は抽出に関する質問です。 print $line,"\n"; で文字を出力すると 29日(日) 30日(月) 1日(火) 2日(水) ・・・ のように出力できています。 これを以下のように出力したいと思っています。 1日目文字列:29日(日) 1日目日付:29 1日目曜日:日 2日目文字列:30日(月) 2日目日付:30 2日目曜日:月 3日目文字列:1日(火) 3日目日付:1 3日目曜日:火 ・・・ 日付のみの抽出、曜日のみの抽出はどのようにすればいいでしょうか。 教えてください。よろしくお願いします。
質問日時: 2017/08/08 02:07 質問者: yyy100009
解決済
10
0
-
24
このファイルを開く方法で困っています。
ウインドウズ10ですが、先日から急に 起動時に必ず「このファイルを開く方法を選んでください」という 小窓が出るようになってしまいました。 とりあえずメモ帳で開いてみましたが、メッセージを 消す方法を教えてください。冒頭が下記です。 === Verbose logging started: 2017/01/13 18:33:29 Build type: SHIP UNICODE 5.00.10011.00 Calling process: C:\Users\AKIRAM~1\AppData\Local\Temp\{F3565BDA-8CFF-472D-AB2F-07D07F1324D1}\setup.exe === MSI (c) (20:54) [18:33:29:120]: SOFTWARE RESTRICTION POLICY: Verifying package --> 'C:\WINDOWS\Installer\fb73565.msi' against software restriction policy MSI (c) (20:54) [18:33:29:120]: Note: 1: 2262 2: DigitalSignature 3: -2147287038 MSI (c) (20:54) [18:33:29:120]: SOFTWARE RESTRICTION POLICY: C:\WINDOWS\Installer\fb73565.msi is not digitally signed MSI (c) (20:54) [18:33:29:120]: SOFTWARE RESTRICTION POLICY: C:\WINDOWS\Installer
質問日時: 2017/05/29 22:54 質問者: Jemini0219
ベストアンサー
3
1
-
25
Perlのエラーについてご教授ください。初心者です。 CGIを別サーバに移したところ、Perlのバー
Perlのエラーについてご教授ください。初心者です。 CGIを別サーバに移したところ、Perlのバージョンが違うせいか以下のようなエラーがでました。 Use of uninitialized value in pattern match (m//) エラー箇所は一部分で恐縮ですが、この部分です。 リファラーチェックで、3つ以外の参照元URLとパラメータの前方4文字だけチェックしています。 どう直せば良いのかわからず…ご教授ください。 unless ( $ENV {'HTTP_PEFERER'} =˜ /^(?:${referer1})¥?[a-z]{4]&_gl/ || $ENV {'HTTP_PEFERER'} =˜ /^(?:${referer2})¥?[a-z]{4]&_gl/ || $ENV {'HTTP_PEFERER'} =˜ /^(?:${referer3})¥?[a-z]{4]&_gl/ ) { &error( '参照元が違います' . $ENV{'HTTP_PEFERER'} ); exit; }
質問日時: 2023/05/31 10:48 質問者: 彩いろどり
ベストアンサー
5
0
-
26
perl LWPでURLにアクセスした時にデータを確実に取得したい(もしくはエラーを知りたい)
use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->ssl_opts( verify_hostname => 0 ); $ua->timeout(60); my $res = $ua->get( $url ); my $source = $res->content; このようにして自分のHPのあるデータを時々取得してローカルファイルを更新しています。 しかし、ごくごく稀ですが取得したデータが途切れていることがあります。 例えば、取得先のファイルの中身が以下のような4行のファイルだとすれば、aからbまで取得。そこで終了。本来eまで読み込むはずですがそこまで行かずに取得が完了しています。 ----test.html---- a b c d e ---------------- エラーが出ないためローカルファイルに間違った情報が取得され困っています。どのようにすれば確実にサーバ上のデータを取得できますか?もしくは、取得ミスに気付ける方法はありますか?
質問日時: 2021/01/10 20:44 質問者: i5tka
ベストアンサー
1
0
-
27
サイト内の動画を保存する方法を教えてください!よろしくお願いします!
サイト内の動画を保存する方法を教えてください!よろしくお願いします!
質問日時: 2019/02/24 14:42 質問者: サクラ02
ベストアンサー
3
0
-
28
アルファベットに付いて質問します。 小文字のエル【l】と大文字のアイ【I】の区別ができません。写真の
アルファベットに付いて質問します。 小文字のエル【l】と大文字のアイ【I】の区別ができません。写真の本人確認コード【I】です。何方か教えて頂けませんか。 宜しくお願いします。
質問日時: 2023/08/31 23:56 質問者: kaiya555
解決済
3
1
-
29
#!/usr/bin/perlで書きだしたCGIをサーバーにアップしていますが反応しません
perlの環境が必要だったのですか??
質問日時: 2023/08/22 23:29 質問者: kakagaga1245
解決済
4
0
-
30
perlのflock関数でロックをかけたままopen関数で何度もファイルを開きなおすことはできますか
cgiで簡易chatを作っているのですが、 open(FILE, "<", $DATAFILE); flock(FILE, 2); ・・・・・・ open(FILE, ">", $DATAFILE); ・・・・・・ close(FILE); 最初にファイルをロックをかけたまま最後に閉じるまで ロックはかかったままになるでしょうか。
質問日時: 2023/05/01 22:25 質問者: MenPin
ベストアンサー
3
0
-
31
AI sisterとは、偽物の人ですか?
下記You Tubeの女性は、ひょっとしコンピューターで作成した人でしょうか? どうみても本物の女性に見えるのですが・・・ どうなんでしょう? [AI] sister, bikini fashion, 비키니 패션쇼 (1) https://www.youtube.com/watch?v=MOEU-aj-Vk8
質問日時: 2023/04/12 23:43 質問者: hazet817
解決済
1
0
-
32
bashスクリプト
以下のbashのシェルスクリプトですが、 exec 3<>のところはどういった意味になるのでしょうか? リダイレクトの<と>の間には何も入っていないようなのですが^^; exec 3<> /dev/tcp/www.google.co.jp/80 && (echo 'HEAD / HTTP/1.1'; echo 'Host : www.google.co.jp'; echo;) >&3; (cat & sleep 1; kill $!) <&3
質問日時: 2023/02/10 21:01 質問者: tmiyoshi
解決済
2
1
-
33
ファイルアイコンの左下に緑の□の中に「レ」・青い□の中に「>>」
いつの間にか ファイルアイコンの左下に緑の□の中に「レ」・青い□の中に「>>」 がつくようになりました 1.この意味を教えてください 2.消し方を教えてください
質問日時: 2023/01/31 09:28 質問者: kazuyan_notes
解決済
1
0
-
34
perlでリテラル値はメモリにどのように格納されているか?
いつかCGIゲームを作ってみたいと思いperlを学習しています。 学習本を買って読んでいたら、perlは数値の0も文字列の'0'も同じリテラル値として扱うと書かれていました。この値をメモリに格納するときperlは16進数の0x00で格納するのでしょうか?またはASCII文字としての0x30で格納するのでしょうか? perlがメモリの内部にどのように格納してるかどうかはプログラムする人には関係ないのかもしれませんが、疑問に思ったので質問しました。よろしくお願いします。
質問日時: 2023/01/15 20:45 質問者: MenPin
ベストアンサー
1
1
-
35
perlについて
現在perlでプログラムを書いています。 その中で、 校長先生 合体 1 というような列があった場合、その行を全て、別の場所に移動させたいです。 移動させたい場所は、例えばですが次に に に に 助詞 9 格助詞 1 * 0 * 0 NIL <かな漢字><ひらがな><付属> このような列がでてくる一つ上の行に移動させたいです。 やり方が分からないため、詳しい方にお力を借りたいです。 宜しくお願いいたします。
質問日時: 2022/11/18 19:38 質問者: やまう
ベストアンサー
2
0
-
36
perlについての質問
while($a <=$gyou){ my $string = "$gyouretu[$a][0]"; print OUT substr($string, 0, 1); $a++; } 他のところはうまくいっていたのですが、このプログラムを入れた場合、文字化けを起こしてしまいます。UTF8でそろえております。 $gyouretu[$a][0]の文字列の、位置0から1文字、つまり1文字だけを出そうとしています。 現在、substrを使ったシステムの開発を行いたいと思っているため、$gyouretu[$a][0]の1文字だけを出せればよいということではありません。 この文字化けの解決法、わかる方がいましたら教えていただきたいです。 よろしくお願いいたします。
質問日時: 2022/10/17 15:25 質問者: やまう
ベストアンサー
2
0
-
37
perlのプログラミング 部分入れ替えの方法
現在、下記のような入力ファイルで、「お試しになるです」という形態素解析結果を「お試しになります」に変え、その他の場合でも、最後に「です」がつく基本形の動詞を修正するプログラムを書こうと頑張っています。そのようなプログラムを完成させるために、$line[$a][0]に格納されている、「なる」などの基本形の動詞の最後の文字のみを変更するプログラムの方法を教えていただきたいです。 何卒よろしくお願いいたします。 お お お 接頭辞 13 名詞接頭辞 1 * 0 * 0 "代表表記:御/お" 試しに ためしに 試しに 副詞 8 * 0 * 0 * 0 "代表表記:試しに/ためしに" なる なる なる 動詞 2 * 0 子音動詞ラ行 10 基本形 2 "代表表記:成る/なる 自他動詞:他:成す/なす; で で でる 動詞 2 * 0 母音動詞 1 基本連用形 8 "代表表記:出る/でる 補文ト 自他動詞:他:出す/だす す す する 動詞 2 * 0 サ変動詞 16 文語基本形 18 "代表表記:する/する 付属動詞候補(基本) 自他動
質問日時: 2022/10/11 22:26 質問者: やまう
ベストアンサー
1
0
-
38
Blenderについて
至急です! blenderの解説動画を見ていたら、細分割曲面モディファイアーという言葉が出てきたのですが 探してもどこにもありません もしかしてblenderのバージョンによって名称が変わっていたりしますか?
質問日時: 2022/08/05 19:37 質問者: ポポん
ベストアンサー
1
0
-
39
perl このテキストファイルを簡単に配列に入れるには?
------------- ---aaa--- あ い う ---bbb--- か き く -------------- 上記のようなテキストファイルがあります。 この場合、 @aaa,@bbb (変数名は事前に分かっています) にそれぞれ配列に入れたい どのようにすると、スマートにそれぞれ配列に入れることができますか? 一応、自分でもやってみて動きはするのですが、仮に---ccc---のブロックができると対処できません。 open(F,"<$test"); my @f = <F>; close F; shift @f; chomp @f; for(@f){ if($_ =~ m/--bbb--/){last;} if(length($_) <= 4){last;} push(@aaa,$_); } @f = reverse @f; for(@f){ if($_ =~ m/--bbb--/ ){last;} if(length($_) <= 4){next;} push(@bbb,$_); }
質問日時: 2022/04/27 20:24 質問者: elee_f
ベストアンサー
2
0
-
40
PERL
PERLでこれはどうゆう意味ですか? $auth_user = "<tr><td class='td_head'>".$SERVER_LIST{$FORM{'itsp_type'}}{'ContactName'};
質問日時: 2022/04/26 14:15 質問者: あっきー126
ベストアンサー
1
0
-
41
画像が表示でnull; this.src
<img src="123.jpg" alt onerror="this.onerror = null; this.src='';"/> この123.jpの部分はデータベースを読み込んでいますが、そのデータが空の場合、画像がないときに表示される×を見えないように記述しています。ですが・・ <img src=" " alt onerror="this.onerror = null; this.src='';"/> <img src=" " alt onerror="this.onerror = null; this.src='';"/> <img src=" " alt onerror="this.onerror = null; this.src='';"/> <img src="123.jpg" alt onerror="this.onerror = null; this.src='';"/> となると×の表示はなくても4つ目の画像までに隙間ができてしまいます。 隙間ができないように詰めて表示できるようにするにはどうしたら良いでしょうか?
質問日時: 2022/04/19 11:31 質問者: 薩摩の人
ベストアンサー
1
2
-
42
Perlでファイルの末尾から指定文字列を検索してファイルに吐き出したい
皆さんのお知恵をお貸し頂ければ幸いです。 Perlで以下のようなことをしたいと考えています。 例えば、次のようなテキストファイルがあったとします。 example.log ================================== aaaa bbbb START hogehoge cccc START test okok perl eeee END script ================================== 上記ファイルを読み込んで、「cccc START」から「eeee END」の間に挟まれた行だけ抜き出したいのです。 いろいろ試してみましたが、どうしても初めの「bbbb START」から「eeee END」まで出力されてしまいます。 このような場合、どういう風にすればいいのでしょうか? 恐れ入りますが、ご教授頂ければ幸いです。 それでは、どうぞよろしくお願い致します。
質問日時: 2022/04/04 16:15 質問者: damdam111
解決済
4
0
-
43
Strawberry Perl for Windows で Out of memory! 対策は?
以下プログラムは32GBほどメモリを積んでいるPCで実行してもOut of memory!と表示されて落ちます。おそらく、配列が多すぎるのだと思いますが、配列に入れられる数を増やすことはできないのでしょうか? ちなみに、一桁少ない数だと1秒位で正常終了します。 use strict; use warnings; my @all; for(1..100000000){ #10000000なら問題なく終了する push(@all,$_); } open( FT, ">test.txt" ); print FT join "\n", @all; print FT "\n"; close FT;
質問日時: 2022/02/16 01:37 質問者: shiki_05_0
ベストアンサー
5
0
-
44
秀丸での一括変換について
秀丸での一括変換についてについて質問させていただきます。 元のデータ ------- Apple りんご Orange みかん Grapes ぶどう ------- 変換後のデータ ------- Apple りんご Orange みかん Grapes ぶどう ------- という様に「英単語のみの後ろにある改行をタブに置換」 ということを行いたいと思います。 自分で調べて、\i\n を \i\t という様に置換してみたのですが、 単語の最後の一文字がiに変換されてしまいます。 どなたか変換方法をご教授いただければ幸いです。 よろしくお願いします。
質問日時: 2022/02/09 12:32 質問者: kenchan77777
ベストアンサー
3
0
-
45
ターミナルで特定の文字と文字の間を削除
ターミナルもしくはperlで特定の文字と文字の間の文字列を削除したいのですがやり方がわかりません。 ===sample.txt=== AこんにちはB ============= この場合だとAとBの間を削除してABだけにしたいです。 よろしくお願いします。
質問日時: 2022/02/04 14:01 質問者: bitaminb
ベストアンサー
2
0
-
46
英数文字列のうちの数値を4桁に成形
以下の2例のうち、数値部分を4桁としたいと思います。 9桁の英数/3桁の英+4桁の数値/3桁の英+4桁の数値 としたいです。 以下に変換例を示します。 190302007/WGi6301/WGn60→190302007/WGi6301/WGn0060 180302002/WGn60/WGn80→180302002/WGn0060/WGn0080 よろしくお願いします。
質問日時: 2022/01/23 10:07 質問者: Blackyjp
ベストアンサー
4
0
-
47
TeraPadエディターの操作方法について
TeraPadエディターの操作方法についてですが、 りんご みかん ぶどう これを、 "りんご","みかん","ぶどう" と置換したいのですがどのように設定すればよろしいでしょうか? よろしくお願いします。
質問日時: 2022/01/20 06:40 質問者: koompe473
ベストアンサー
2
1
-
48
Perlのプログラムについて
Perlのプログラムを作りたくて質問させていただきます。 1.『AAA』というフォルダ下に「01~04」までのフォルダを作る 2.「AAA」のフォルダ下に「BB」というフォルダがあり、その下に[***_01.bz2][***_02.bz2][***_03.bz2][***_04.bz2]というファイルがあります。 『AAA/BBB/***01.bz2』~『AAA/BBB/***04.bz2』 これら4つのファイルをコマンド「bunzip2」を使用して解凍する。 3.解凍したファイル[***_01]を「01」のフォルダに移動 [***_02]を「02」のフォルダに移動 [***_03]を「03」のフォルダに移動 [***_04]を「04」のフォルダに移動 こういった内容をプログラムを作りたいのですが、勉強不足で色々うまくいきません。 どのように作ればいいか教えていただけるとありがたいです。 ちなみにOSは「Windows10」です。 どなたかどうぞよろしくお願いします。
質問日時: 2021/12/06 15:35 質問者: rie78
ベストアンサー
3
0
-
49
Perl(Windows)の文法について
プログラムPerlの超初心者です。 プログラムで「$path0」をまず設定していて、「path0以下で『W・・・』というフォルダ名があったら「path1」として「path0+\+dname」と設定したいのです。(以下のように書きました) foreach $dname ( @dlist ){ if( $dname=~/W/ ){ $path1=$path0.”\".$dname; print( "$path1\n" ); しかし、『$path1=$path0.”\".$dname;』ここで「Can't find string terminator "'" anywhere before EOF at ****.pl line **.」とエラーメッセージが出ました。 どう直せばいいでしょうか? 分かりにくくて申し訳ないのですが、教えていただけるとありがたいです。
質問日時: 2021/12/04 13:59 質問者: rie78
ベストアンサー
7
0
-
50
ベストアンサー
1
1
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Perl】に関するコラム/記事
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
生活していく上で、多種多様な選択肢のある現代。「環境」が人生に与える影響は少なくないというが、実際どれほどのものなのか。「教えて!goo」 にも、「子育ては田舎と都会、どちらがよいでしょうか」と、子育てと...
-
メダロット:第243話「Vol.243※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
SNSでの誹謗中傷はなぜなくならない?自分で自分を守るための利用方法とは!
今や世の中は「SNS全盛時代」といっても過言ではない。さまざまな情報を得られる半面、誹謗中傷などの不適切な投稿が人の心を傷つけるケースも少なくない。諸刃の剣ともいえるSNSだが、「教えて!goo」 には「ネット...
-
賃貸を退去する際の通常損耗の回復費用は誰が負担?契約時に注意すべき点は?
「退去時における消耗箇所の回復費用を誰が負担するか」というのは、賃貸物件のよくあるトラブルであるが、そもそも通常消耗・経年劣化・特別消耗の意味がそれぞれ異なることはあまり知られていない。 ・通常消耗・...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Perl の外部モジュールの利用方法
-
perlで2次元配列をサブルーチンに...
-
テキストファイルで提出とは?
-
vlookupがうまくいきません、教えて...
-
PerlでUTF-8のファイルの文字列置換...
-
プログラマーになるにはどうすれば...
-
perlのrequireの動き方についての質問
-
perlの構文でカンマの意味が分からない
-
perlについての質問
-
Windows10においての『Perl』のプロ...
-
Perlで特定文字列から特定文字列ま...
-
INDIRECT 横に再度抽出したい
-
Wallpaper Engineでおすすめの壁紙...
-
perlのgrepでmyを付けた場合と付け...
-
Perlで、「が」を、「が」...
-
perlプログラミング 空白行削除
-
Perlで時間の計算
-
ペプシコーラとコカ・コーラとDr Pe...
-
perlをバージョンアップしたら、今...
-
openした後、closeしないでプログラ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストファイルで提出とは?
-
openした後、closeしないでプログラ...
-
perlをバージョンアップしたら、今...
-
INDIRECT 横に再度抽出したい
-
Perl の外部モジュールの利用方法
-
Perlで特定文字列から特定文字列ま...
-
Perlのエラーについてご教授くださ...
-
bashスクリプト
-
Strawberry Perl for Windows で Ou...
-
perlで2次元配列をサブルーチンに...
-
TeraPadエディターの操作方法について
-
アルファベットに付いて質問します...
-
perlのflock関数でロックをかけたま...
-
ファイルアイコンの左下に緑の□の中...
-
perlプログラミング 空白行削除
-
Wallpaper Engineでおすすめの壁紙...
-
Perlで時間の計算
-
perlのrequireの動き方についての質問
-
perlでリテラル値はメモリにどのよ...
-
画像が表示でnull; this.src
おすすめ情報