• [解決済み] Perlで何か悪いことが起こったとき、croak()とdie()のどちらが良いのでしょうか?

    質問 パールクリティック は、次のようなコード、つまり全く問題なく動作するDBIの定型的なもの、が必要であることを訴えています。 croak ではなく die : # Connect to database my $db_handle = DBI->connect( $url, $user, $password ) or die $DBI::errstr; こ

    2022-02-14 08:57:10
  • [解決済み】グローバルシンボルはパッケージ名を明示する必要がある

    質問内容 グローバルシンボルはパッケージ名を明示する必要がありますか?このエラーが発生した理由と、このエラーを引き起こす可能性のある様々なケースを教えてください。 解決方法は? をご覧ください。 パールディアグ : グローバルシンボル "%s"には明示的なパッケージ名が必要です。 (F) あなたは "use strict" または "use strict vars"

    2022-02-14 05:17:23
  • [解決済み] Perl の "make_path" と "remove_tree" は、オプションハッシュが空の場合、異なる結果になります。

    質問 私のモジュールには、次のようなコード行があります。 make_path($root_dir); 残念ながら、目的のディレクトリは作成されません(確認したところ、そこにパーミッションはありました)。 しかし、以下のように変更すると。 make_path($root_dir, {}); 正常に動作しています。その数行前に、同じような奇妙な動作をする make_path

    2022-02-14 03:36:21
  • [解決済み] CPAN モジュールをすべて最新版に更新するにはどうしたらいいですか?

    質問 CPAN モジュールをすべて最新版に更新するにはどうしたらいいですか? 解決するには? を使用する代替方法として upgrade をデフォルトの CPAN シェルから使用することです。 cpanminus と cpan-outdated . これらはとても簡単で軽快に使えるので、私はほとんどCPAN shellに戻ることはありません。すべてのモジュールを一度

    2022-02-12 22:47:30
  • PerlのSort関数の使い方まとめと使用例

    (A) ソート関数の使用方法 ソートリスト ソートブロック一覧 サブネームリストのソート sortは上記のように3通りの使い方があります。LISTをソートして、ソート後のリストを返します。SUBNAME や BLOCK を無視した場合、ソートは標準的な文字列比較順 (例えば ASCII 順) で実行されます。SUBNAMEが指定された場合、それは実際には2つのリスト要素を比較

    2022-02-12 20:46:13
  • [解決済み] Perlで画面をクリアする方法は?

    質問内容 理想はクロスプラットフォームなもの。 どのように解決するのですか? CPANが一番良い方法でしょう。 を覗いてみてください。 用語::スクリーン:ユニ : require Term::Screen::Uni; my $scr = new Term::Screen::Uni; $scr->clrscr()

    2022-02-12 07:41:17
  • 問題発生 ----DBI ODBCエラー Perlスクリプトを実行中、エラー:[unixODBC][Driver Manager] データソース名が見つからない、およびデフォルトがない

    usr/local/unixODBC 以下の etc/odbc.ini を確認したところ、設定レコードがありました。 そして [root@localhost unixODBC]# bin/isql -v zzq_gy_tm_local sa kkzzz1112332442557788 とします。  試しに、接続も成功しましたが、perlスクリプト

    2022-02-12 05:14:54
  • perlのファイルテスト演算子のまとめ

    第1部 コピーコード コードは以下の通りです。 Operators Meaning -r file or directory readable -w file or directory writable -x file or directory executable -o file or directory is owned by the user -R

    2022-02-12 04:38:55
  • [解決済み】#!/usr/bin/perlの-Tまたは-wの意味は何ですか?

    質問 についてググってみました。 #!/usr/bin/perl しかし、満足のいく回答は見つかりませんでした。基本的なことなのでしょうが、それでも #!/usr/bin/perl をPerlで使うことはできますか?また -w または -T で指定します。 #!/usr/bin/perl ? 私はPerlの初心者なので、気長に待ってください。 どのように解決するのですか?

    2022-02-11 02:29:44
  • [解決済み] Hashに重複したキーや値を持たせることができるか

    質問 Hashは重複したキーや値を持つことができますか? どのように解決するのですか? 値が重複することはあっても、キーが重複することはありません。

    2022-02-11 02:26:17
  • [解決済み] 演算子で指定された場所にベアワードが見つかりました。

    質問 私はperlの初心者で、いろいろといじくりまわしています。 ネットでこんなコードを見つけました。 以下はそのコードのスニペットです。 82 process_input(q,[]). 83 process_input(n,Task) :- toptask(Task), set_new_threshold. 84 process_input(s,Task) :- suggest_task

    2022-02-10 17:46:57
  • [解決済み] Perl で bash コマンドを使用して文字列をエコーするにはどうすればよいですか?

    質問 これは私が試したことです。 my $s = "s" x 1000; my $r = `echo $s |more`; しかし、うまくいかず、プログラムが直接終了してしまいます...。 どうすればいいですか? あなたの例ではうまくいきません。 $r . その出力は、変数 $r . を使うことで system() 代わりに、STDOUTに出力されるのを見ることができま

    2022-02-10 12:34:14
  • [解決済み] Perlで文字列の各単語の最初の文字を大文字にするにはどうすればよいですか?

    質問内容 文字列の各単語の最初の文字を大文字にする最も簡単な方法は何でしょうか? どのように解決するのですか? 参照 よくある質問 . 私は信じていません ucfirst() は、文字列を分割して後で結合することなく、文字列内の各単語の最初の文字を大文字にするというOPの質問を満たしています。

    2022-02-09 21:13:46
  • [解決済み] Perlで「ハッシュの代入の要素数が奇数である」という警告が出る

    質問 次のような構文を使用すると、警告が表示されます。 my %data_variables = ("Sno." => (5,0), "ID" => (20,1), "DBA" => (50,2), "Address" => (80,3),

    2022-02-09 05:40:02
  • [解決済み] Perlで配列を比較するにはどうしたらいいですか?

    質問 2つの配列があります。 @a と @b . 2つの配列の要素を比較したい。 my @a = qw"abc def efg ghy klm ghn"; my @b = qw"def ghy jgk lom com klm"; 一致する要素があれば、フラグを設定する。これを行うための簡単な方法はありますか? どのように解決するのですか? まず、2つの配列が正しく記述され

    2022-02-08 08:04:47
  • [解決済み] Perlで強制的にフラッシュ出力することはできますか?

    質問 Perlで以下の2行があります。 print "Warning: this will overwrite existing files. Continue? [y/N]: \n"; my $input = <STDIN>; 問題は、Perl スクリプトが入力のために一時停止する前に、print 行が実行されないことです。つまり、Perlスクリプトは明確な理由もなく

    2022-02-08 03:03:57
  • Perlでよく使われる記号と操作

    コメント 1. 一行で。#プリント 2. マルチライン:=pod ......=cut perl関連のクエリ。 Perldoc perlvar($a,$$,$"...)です。 Perldoc perfunc(sort...)です。 perldoc perl perldocの記事一覧を見る Perldoc -q 正規表現 Perldoc -f 関数名

    2022-02-07 20:06:53
  • [解決済み] スクリプトからの不正なヘッダー。不正なヘッダー=<!DOCTYPE html> です。

    質問 perlスクリプトで以下のようなサーバーエラーが発生します。 スクリプトからのヘッダが不正です。悪い header=: youtube_perl.pl, 以下は私のソースコードです。 #!"C:\XAMPP\perl\bin\perl.exe" -T use strict; use warnings; use CGI; use CGI::Carp qw/f

    2022-02-07 13:04:35
  • Perlの強力な正規表現の例を解説

    I. はじめに 正規表現の仕様は言語ごとに異なりますが、基本的には似ていて、メタキャラクタの組み合わせでマッチングします。Nmapの組み込みサービスやバージョン検出はPerlの正規仕様を使っているので、このブログでは、後で確認するのに便利なPerlの正規性の関連内容を記録しています。 II. Perlの正規の例 以下の例は欠点がある可能性があり、ブログから派生し

    2022-02-07 08:17:04
  • [解決済み] の記述はどういう意味ですか?

    質問 Perlで、このコードを実行すると。 print $a の値は何も表示されません。 $a (あるいは特別でない他の変数)は undef . しかし、このコードを実行すると print $% 代わりにこうなる。 0 perldocのperlvarによると、次のような記述があります。 $% : 現在選択されている出力チャネルの現在のページ番号です。

    2022-02-07 02:16:15