perl

0熱

0答えて

私はウェブサイトをこすりしようとしていますし、私は関係なく、私がしようとするもので403 Forbiddenを取得していない午前403を取得： wgetの CURL（コマンドラインとPHP） PerlをWWW :: PhantomJS を機械Iは、ユーザエージェントを変更する、プロキシととせずに、上記の全てを試し、そしてリファラヘッダを追加します。私のChromeブラウザからリクエストヘッダーを

0熱

1答えて

PerlのメーラーTLSエラー

ここ sub send_mail_via_smtp { my(%p) = @_; eval 'use Net::SMTP::TLS'; my $repository = $p{session}->get_repository; my $smtphost = $repository->get_conf('smtp_server'); ##my

4熱

1答えて

perl perlpackutut私のために意味がない

私は本当にperlのパックとアンパックの定義について混乱しています。以下は、パック機能は、与えられた仕様、いわゆる「テンプレート」引数に従って表現を含むバイト配列に値を変換perl.doc.org からの抜粋です。 unpackは逆のプロセスで、バイトの文字列の内容からいくつかの値を派生させます。だから、packは人間が読めるもの（Aなど）を取り、それをバイナリ形式に変換するというアイデ

-1熱

2答えて

Perl組み込みコンマで効率的にCSVを解析し、データベースに追加する

正規表現をどのようにして配列に適用しますか？私のcsvファイルで読んでいる間、私は... s/, /- /g; s/1,000/1000/g; これを適用しかし、私は私の多次元配列内のデータを入れた後、私は自分のフィールドに戻ってコンマを挿入する方法がわかりません。

1熱

1答えて

perlは、コピーを作成せずに関数から返された一時リストを参照しますか？

私はリストを返す関数をperlに持っています。 fooは（）のコピーをリストに割り当てられているというのが私の理解がなされている。 sub foo() { return `ping 127.0.0.1` } my @list = foo(); @listが、その後@oldlist = @list;のように別のリストに転送すると、別のコピーが作成される必要があること。だから私はmy $lis

3熱

1答えて

Perl：JSON :: XSブール値のデコードを1/0として強制できますか？

パッケージJSON :: XSはJSON :: XS :: Booleanオブジェクトを使用してtrue/falseを表します。 true/false json値を1/0 Perl数としてデコードすることは強制できますか？ #!/usr/bin/env perl use JSON::XS; use Data::Dumper; my $json = decode_json(join('',

3熱

2答えて

perlのmsiファイルを読む

msiファイルを読んでみたい。私はライブラリWin32 :: MSI :: HighLevelを使用しますが、これは私にundefを常時送ります。マイコード： use strict; use warnings FATAL => 'all'; use Win32::MSI::DB qw(Win32::MSI::DB::MSIDBOPEN_READONLY); use Win32::MSI::

4熱

2答えて

perl GetOptions、引数を受け入れるオプショントリガーサブルーチン

GetOpt::LongのGetOptions関数を使用して、引数を受け入れるサブルーチンを呼び出そうとしています。ただし、オプションがコマンドラインで指定されているかどうかにかかわらず、サブルーチンは呼び出されます。この予期しない動作は、引数がGetOptions行のサブルーチンに渡されないと発生しません。以下は、問題の最小デモンストレーションです：引数はGetOptionsラインにサブルー

0熱

1答えて

なぜPerlは複数行の正規表現ですべての正規表現の一致を表示しないのですか？

私は、このテキスト（私のオリジナルテキストの短縮バージョン）を持っている： mytext.txt BAHJSBUBGUCYHAGSBUCAGSUCBASBCYHUBXZCZPZHCUIHAUISHCIUJXZJCBZYAUSGHDYUAGWEBWHBHJASBHJASCXZBUYTRTRTRJFUARGAFGOOPWWKBBCAAAABBXHABSDAUSBCZAAAAAAAAACGAFAXHJB

0熱

2答えて

内部配列を関数に渡す

内部配列をPerlの関数に渡そうとしています。ここに私のPerlプログラムがあります。 #!/usr/bin/perl use strict; use warnings; my %data = ( 'a' => ( x => 'Hello', y => 'World' ), 'b' => ( x => 'Foo',