回答数
気になる
-
perlのflock関数でロックをかけたままopen関数で何度もファイルを開きなおすことはできますか
cgiで簡易chatを作っているのですが、 open(FILE, "<", $DATAFILE); flock(FILE, 2); ・・・・・・ open(FILE, ">", $DATAFILE); ・・・・・・ close(FILE); 最初にファイルをロックをかけたまま最後に閉じるまで ロックはかかったままになるでしょうか。
質問日時: 2023/05/01 22:25 質問者: MenPin
ベストアンサー
3
0
-
ActivePerlをインストールしようとしているのですが、exeからインストール時にエラーになりま
ActivePerlをインストールしようとしているのですが、exeからインストール時にエラーになります。 アカウント登録しないとインストールできないのでしょうか? 可能であればアカウント登録はしたくないです。 あと、Windows10に入れようとしています。 教えて頂けると助かります。
質問日時: 2023/04/25 10:29 質問者: 彩いろどり
ベストアンサー
2
0
-
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
-
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
-
ファイルアイコンの左下に緑の□の中に「レ」・青い□の中に「>>」
いつの間にか ファイルアイコンの左下に緑の□の中に「レ」・青い□の中に「>>」 がつくようになりました 1.この意味を教えてください 2.消し方を教えてください
質問日時: 2023/01/31 09:28 質問者: kazuyan_notes
解決済
1
0
-
perlプログラミング 空白行削除
perlのプログラムで、入力文の空白行を消したいのですが、上手くいきません。 詳しい方教えていただけると助かります。
質問日時: 2023/01/28 17:58 質問者: やまう
解決済
4
0
-
perlでリテラル値はメモリにどのように格納されているか?
いつかCGIゲームを作ってみたいと思いperlを学習しています。 学習本を買って読んでいたら、perlは数値の0も文字列の'0'も同じリテラル値として扱うと書かれていました。この値をメモリに格納するときperlは16進数の0x00で格納するのでしょうか?またはASCII文字としての0x30で格納するのでしょうか? perlがメモリの内部にどのように格納してるかどうかはプログラムする人には関係ないのかもしれませんが、疑問に思ったので質問しました。よろしくお願いします。
質問日時: 2023/01/15 20:45 質問者: MenPin
ベストアンサー
1
1
-
perlで2次元配列をサブルーチンに値渡しで渡す
perlを勉強中ですc言語は大体理解できます。 標準入力から2次元配列の行数と列数を読み込んで、 さらに標準入力からその2次元配列の各要素を読み込み、 その2次元配列をサブルーチンに値渡ししたいのですが、 変数の使い方をどのようにしたらいいかわかりません。 実現方法を教えて!goo
質問日時: 2022/12/17 18:49 質問者: MenPin
ベストアンサー
5
0
-
Perlで時間の計算
例えば、こんなデータがあるとします。 $a = "19:31"; $b = "19:35"; それぞれ、19時31分と19時35分という意味です。 $bから$aを引いて、"00:05"という結果が欲しいのですが、Perlでどのように計算すればよいでしょうか?
質問日時: 2022/11/28 16:52 質問者: workpad30j
ベストアンサー
2
0
-
perlについて
現在perlでプログラムを書いています。 その中で、 校長先生 合体 1 というような列があった場合、その行を全て、別の場所に移動させたいです。 移動させたい場所は、例えばですが次に に に に 助詞 9 格助詞 1 * 0 * 0 NIL <かな漢字><ひらがな><付属> このような列がでてくる一つ上の行に移動させたいです。 やり方が分からないため、詳しい方にお力を借りたいです。 宜しくお願いいたします。
質問日時: 2022/11/18 19:38 質問者: やまう
ベストアンサー
2
0
-
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
-
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
-
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
-
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
-
ベストアンサー
5
0
-
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
-
perlについての質問
現在jumanでの形態素解析結果を用いてプログラムを書いております。 perlで、句点が出てきた場合、その前の4行を削除し、そこに新しい文章を加えたいのですが、やり方がわかりません。 どうしたらいいでしょうか?
質問日時: 2022/10/01 15:38 質問者: やまう
ベストアンサー
1
0
-
ExcelVbaファイルを.xls から .xlsm に変更したときの日付の変化に対応する方法。
XP時代に .xls で作った古いExcelVbaファイルでは、Dateは "2022/8/15" で持ちますが、.xlsm に変更しましたら "2022/8/15㈪" という形になり、曜日がついてまわります。 日付の比較をするときに、曜日がついていると比較できずエラーになってしまいます。 下3桁を除く方法以外に何かありますか?
質問日時: 2022/08/15 16:34 質問者: Dory-R
解決済
2
0
-
Blenderについて
至急です! blenderの解説動画を見ていたら、細分割曲面モディファイアーという言葉が出てきたのですが 探してもどこにもありません もしかしてblenderのバージョンによって名称が変わっていたりしますか?
質問日時: 2022/08/05 19:37 質問者: ポポん
ベストアンサー
1
0
-
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
-
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
-
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
-
PERL
PERLでこれはどうゆう意味ですか? $auth_user = "<tr><td class='td_head'>".$SERVER_LIST{$FORM{'itsp_type'}}{'ContactName'};
質問日時: 2022/04/26 14:15 質問者: あっきー126
ベストアンサー
1
0
-
画像が表示で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
-
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
-
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
-
RSSにdiv,ul classを付けたいのですがどのようにつけるのかわからないです
echo '<div class="rssBlock">'; echo '<ul class="wiget-rss">'; でclassを付けているのですが、1つずつ同じものがついています。これを全体につけたいのですが、方法がわかりません… どのようにつければいいのでしょうか? //RSS読み込み $rss_per_page = $block_per_page * $rss_per_block; //ページあたりRSS件数 $rss_offset = ($current_page - 1) * $rss_per_page; //RSSオフセット $sql = 'SELECT * FROM rss_feed ORDER BY date DESC LIMIT ?,?'; $stmt = $dbh->prepare($sql); $stmt->bindParam(1, $rss_offset, PDO::PARAM_INT); $stmt->bindParam(2, $rss_per_page, PDO::PARAM_INT); $stmt->execute(); $rss_items = $stmt->fetchAll(PDO::FETCH_OBJ); //投稿読み込み $group_per_block = 5; //ブロックあたり投稿グループ件数 $posts_per_group = 3; //投稿グループあたり投稿件数 $posts_per_page = $block_per_page * $group_per_block * $posts_per_group; //ページあたり投稿件数 $posts_offset = ($current_page - 1) * $posts_per_page; //投稿オフセット $args = [ 'offset' => $posts_offset, 'posts_per_page' => $posts_per_page, ]; $post_items = get_posts($args); //表示 for ($i = 0; $i < $block_per_page; ++$i) { echo '<h2>ブロック</h2>'; echo '<h3>RSS</h3>'; for ($j = 0; $j < $rss_per_block; ++$j) { $item_index = $i * $rss_per_block + $j; if ($item_index >= count($rss_items)) { break; } $item = $rss_items[$item_index]; $title = "<a href=\"{$item->link}\">{$item->title}</a>"; if (empty($item->img)) { $img = 'wp-content/uploads/2021/12/EXt1cESWAAAwdOY.jpg'; } else { $img = $item->img; } $image = "<a href=\"{$item->link}\"><img src=\"{$img}\" width=\"100\"></a>"; echo '<div class="rssBlock">'; echo '<ul class="wiget-rss">'; if ($j >= 0 && $j <= 4) { echo "<li class=\"sitelink\">{$title}</li>"; // タイトルのみ } elseif ($j >= 5 && $j <= 8) { echo "<li class=\"sitelink2\">{$image}<br>{$title}</li>"; // 画像と画像の下にタイトル } elseif ($j >= 9 && $j <= 12) { echo "<li class=\"sitelink3\">{$image}{$title}</li>"; // 画像と画像の右にタイトル } echo '</ul>'; echo '</div>'; }
質問日時: 2022/03/28 01:53 質問者: 初心者サイト作成
解決済
2
0
-
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
-
秀丸での一括変換について
秀丸での一括変換についてについて質問させていただきます。 元のデータ ------- Apple りんご Orange みかん Grapes ぶどう ------- 変換後のデータ ------- Apple りんご Orange みかん Grapes ぶどう ------- という様に「英単語のみの後ろにある改行をタブに置換」 ということを行いたいと思います。 自分で調べて、\i\n を \i\t という様に置換してみたのですが、 単語の最後の一文字がiに変換されてしまいます。 どなたか変換方法をご教授いただければ幸いです。 よろしくお願いします。
質問日時: 2022/02/09 12:32 質問者: kenchan77777
ベストアンサー
3
0
-
ターミナルで特定の文字と文字の間を削除
ターミナルもしくはperlで特定の文字と文字の間の文字列を削除したいのですがやり方がわかりません。 ===sample.txt=== AこんにちはB ============= この場合だとAとBの間を削除してABだけにしたいです。 よろしくお願いします。
質問日時: 2022/02/04 14:01 質問者: bitaminb
ベストアンサー
2
0
-
英数文字列のうちの数値を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
-
TeraPadエディターの操作方法について
TeraPadエディターの操作方法についてですが、 りんご みかん ぶどう これを、 "りんご","みかん","ぶどう" と置換したいのですがどのように設定すればよろしいでしょうか? よろしくお願いします。
質問日時: 2022/01/20 06:40 質問者: koompe473
ベストアンサー
2
1
-
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
-
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
-
ベストアンサー
1
1
-
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
-
CGIでimgタグでalignを使うとエラーになる
cgi内では元々 print "<img src=\"../banner.gif\">\n"; となっているのですが、 print "<img src=\"../banner.gif\" align="left">\n"; にするとInternal Server Errorというエラーが出ます。
質問日時: 2021/11/01 18:33 質問者: れーせん
ベストアンサー
4
0
-
Perl 数値にスラッシュを入れる方法
$date = 20211031; この $date を「2021/10/31」のようにスラッシュを入れる場合どのように記述すればいいですか?
質問日時: 2021/10/30 02:29 質問者: lasdfasdfas
解決済
4
0
-
Perlの例文でif($a==1&&$b==5&&$c==11)みたいなのを見かけない なぜ?
Perlの例文で if($a==1 && $b == 5){ print "ok"; } こういったものは見かけますが、 以下のようない&&を複数使ったものは見かけません なぜでしょうか? また、これは正常に動作しますよね? if($a==1 && $b == 5 && $c == 11 && $d == 12){ print "ok"; }
質問日時: 2021/10/23 01:03 質問者: elee_f
解決済
3
0
-
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
-
Wallpaper Engineでおすすめの壁紙教えてください; ;
Wallpaper Engineで今こんあ壁紙を使ってるのですが飽きてしまって...何か良いのないですかね?
質問日時: 2021/09/04 23:48 質問者: 無名な名無し
ベストアンサー
1
0
-
Perlでsprintf("%02d",$month)ってどうゆう意味ですか?
Perlでsprintf("%02d",$month)ってどうゆう意味ですか?
質問日時: 2021/08/31 16:06 質問者: あっきー126
ベストアンサー
1
0
-
perlでxmllint相当のスクリプト(プロダクト)あるでしょうか?
xmllintが存在しない、unix系組み込みOSを扱っています perlとpythonはあるので、同じような処理をしてくれるパッケージ(でしょうか?)が あれば紹介頂けないでしょうか?
質問日時: 2021/07/13 21:39 質問者: katu_ueda
ベストアンサー
1
0
-
Active Directoryでグループにユーザーの追加を実施したい。
Active Directoyで以下コマンドを実施してグループにユーザ登録をしたいと思っております。 dsmod group "CN=SUMIDA,OU=GeneralUsers,OU=Users,OU=JapanAccounts,DC=japan,DC=local" -addmbr "CN=YAMADA,OU=GeneralUsers,OU=Users,OU=JapanAccounts,DC=japan,DC=local" コマンドを実施するにあたってはバッチファイルを作成し、CSVファイル(user_list.txt)にグループ名とユーザー名を持たせて一括で実施したいです。 ※CSVファイルイメージ ユーザ名,グループ名,グループ名・・・(グループ名は区) 調べながら以下の以下のように記載してみたのですが、正常には動かずです。 どの部分がまたがっているのかご教授お願いいたします。 #!/usr/bin/perl open(FILE, './user_list.txt'); @txt = <FILE>; close(FILE); $ou = "CN=SUMIDA,OU=GeneralUsers,OU=Users,OU=JapanAccounts,DC=japan,DC=local"; $group_ou = "CN=YAMADA,OU=GeneralUsers,OU=Users,OU=JapanAccounts,DC=japan,DC=local"; $count = 0; for my $i (@txt){ if($count!=0){ dsmod group $ou -addmbr $group_ou; } $count++;
質問日時: 2021/07/06 14:57 質問者: misaki0505
解決済
1
0
-
c言語で、チャットシステムに、送信取り消しや、放送禁止用語の取り消しなど、指定した文字をうつさない処
c言語で、チャットシステムに、送信取り消しや、放送禁止用語の取り消しなど、指定した文字をうつさない処理を行いたいのですが、どのようにしたらいいでしょうか?
質問日時: 2021/06/21 18:41 質問者: やまう
ベストアンサー
1
0
-
Raspberry Pi
Raspberry Piでおすすめの作品はありますか? 例)防犯カメラ、サーバーなど メリット デメリットも教えていただきたいです。
質問日時: 2021/06/12 10:46 質問者: Mr.RRR
ベストアンサー
1
1
-
openした後、closeしないでプログラムを終了するとどうなりますか?
openした後、closeしないでプログラムを終了するとどうなりますか? すでにオープンされているファイルハンドルを再びopenしようとすると、まず自動的にクローズするとありますが、プログラム終了時はどうなのでしょう。 まあ、プログラム中でしかファイルハンドル使えないので、どっちでも変わらないと思いますが。。。
質問日時: 2021/06/11 06:30 質問者: zyousuke
ベストアンサー
4
1
-
VB.net
CheckIt = IIf(TestMe > 1000, "Large", "Small") と If TestMe>1000 Then CheckIt="Large" Else CheckIt="Small" これって同じ意味ですか?
質問日時: 2021/06/01 21:25 質問者: katosige417
ベストアンサー
1
0
-
正規表現の 「?」 の使い方について
電話番号の正規表現で、下記のように表現するといいと教えていただきました。 /^0(?(?=[1-9]0)\d{10}|\d{9})$/ いろいろ調べてその意味について理解しようとしましたが、 0から始まる半角数字で、合計10桁か11桁ということはわかるのですが、 ?の使い方についていまいちです。 特に ?(?=[1-9]0) の部分が不明です。 詳しい解説をお願いできる方いらっしゃいますでしょうか。
質問日時: 2021/05/27 20:44 質問者: mabo52
解決済
5
1
-
積分計算の答えが合いません・・・
δ=1/EI{∫[ℓ/4→0]3Px²/8dx+∫[ℓ/2→ℓ/4]Px(ℓ-x)/8dx+∫[ℓ→ℓ/2]P(ℓ-x)²/8dx} との問題ですが何度計算しても 27Pℓ³/1536EI となってしまいます。 答えは 11Pℓ³/768EI なのですが・・・。 お返事は明日になってしまいます。 ご面倒でも計算過程がわかると助かります。どうかよろしくお願いします。
質問日時: 2021/02/20 19:10 質問者: TAKO52
ベストアンサー
2
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Perl】に関するコラム/記事
-
次々に封じられるマイニングなどの節税策・・今後の見通しと残された節税策とは?
教えて!gooで「節税策」と検索すると非常に多くのQ&Aがヒットする。これはそれだけ興味を持っている人が多いということを意味するわけだが、政府はこのような節税策を次々と封じてきた。 直近では令和5年度の税制...
-
メダロット:第191話「Vol.191※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
バスツアーが人気再熱?!その理由とバスツアーをより楽しむためのコツ
バスツアーといえばブドウ狩りなどが思い浮かぶのではないだろうか。旅行に出かけやすくなってきた今、バラエティに富んだバスツアーが人気を集めているらしい。また、初心者だとバスツアーに参加する際の持ち物など...
-
「無断で写真撮影や動画投稿サイトへの公表」が違法になるかどうかの3つの基準
街を歩いているとYouTuberらしき人たちが何かの撮影をしている場面に出くわすことがある。筆者の場合、このようなケースでは撮影をしている人たちが、他人が映り込むことに神経を配っているかどうか不明であるため、...
このカテゴリの人気Q&Aランキング
-
4
テキストファイルで提出とは?
-
5
Windows10 Pro 64bit パソコンで「...
-
6
Perlで特定行から特定行までを抜き...
-
7
「デバイスは PRN を初期化できませ...
-
8
GD.pmでアルファチャンネルを持った...
-
9
レスポンスヘッダの出力方法
-
10
前日の日付取得するには?
-
11
エクセル 2つの表の並べ替え
-
12
perlでの出力先設定
-
13
Perl モジュールのアンインストール...
-
14
ひとつの命令を複数行に記述
-
15
戻り値の意味がわかりません…
-
16
ダブルクォーテーションの削除(置換)
-
17
=(半角イコール)を扱うには?
-
18
Perlのプログラムのエラーです。ロ...
-
19
Perlから他のcgiへPOSTでデータ送信
-
20
日本語文字列の指定長(byte)切出し
おすすめ情報
公式facebook
公式twitter