perl

1熱

1答えて

XpathはXML :: Twig :: XPath :: Eltと連携していません

私は以下のXMLを持っています。 <Path> <To> <My> <Node key="11"> <ChildA>1A</ChildA> <ChildB key="Key1">1B</ChildB> <ChildC> <ChildD>ValD</ChildD> </ChildC> </Nod

-3熱

2答えて

テキストの特定の行にある\ n文字のみをエスケープIDに置き換えます。

sedとperlのコマンドを試してみましたが、期待した結果が得られませんでした。例については： ABC"\ } else { .... 私はこれをどのように操作を行うことができます。私は ABC"\ } else { .... を交換したいですか？次のように直面した課題は以下のとおりです。それは識別子と\nを逃れる含まれているとして、私はまた、パターンを検索することができ

9熱

1答えて

なぜ `map`ブロック内に補間がありませんか？

これはPerlのV5.20でエラーがスローされます： use strict; use warnings; my @a = (2,3,9); my %b = map { "number $_" => 2*$_ } @a; エラー： syntax error at a.pl line 4, near "} @a" Execution of a.pl aborted due to compi

1熱

2答えて

Perlプリントベトナム語

私はperlプログラムを通してMysqlデータベースからベトナムのアドレスを読み込もうとしました。しかし、それは認識できないいくつかの特殊文字を表示します。私はphpMyAdminの文字列が大丈夫です参照してください。また、PHPを使用して文字列を取得し、印刷も問題はありません。文字列を表示するためにperlを使うだけでは変です。印刷後原語 QL37, Phố Vôi, tt. Vôi, Lạn

-3熱

1答えて

Perl DBIのselectrow_hashrefをどのようにして各行を新しい行に戻すことができますか？

2行のコードを節約するためにfetchrow_hashrefの代わりにDBIのselectrow_hashrefを使用しようとしていますが、同じ行のデータを何度も何度も返しています。 my $select="SELECT * FROM table"; while (my ($user_ref) = $dbh->selectrow_hashref()) { # $user_ref is

0熱

1答えて

私はこれは私がこれまでに出ているものですperlのフォーマット</p> <p>を使用して、/ etc/passwdファイルをフォーマットしようとしているperlのフォーマット

を使用して、/ etc/passwdファイルをフォーマットする方法： #!/usr/bin/perl use warnings; format MYFORMAT = @<<<<<<<<<<<<<<<| @<<<<<<<<<<<<<<<| @<<<<<<<<<<<<<<< $username, $UID, $name . $username = `cut -d: -f1 /

2熱

2答えて

ディスク容量をいっぱいにする最も速い方法は何ですか

私はいくつかのTB（5 TBs）の価値のある大きなディスクを持っており、このディスク容量を約95%に書き込む必要があります。これはlinux centosです。私は dd if=/dev/zero of=o_File1.img bs=209715200 count=1000 のようにDDを試してみたでも #!/bin/bash count_=0 parallel_=10 BS=20

-1熱

3答えて

目的の文字列を見ることから正しい正規表現を予測する

いくつかの文字列を見ることで正しい正規表現を予測することができます。たとえば、正規表現^[a-z0-9_-]{3,16}$はmy-us3r_n4m3と一致し、^[a-z0-9_-]{6,18}$はmyp4ssw0rdと一致します。しかし、my-us3r_n4m3を見てから、^[a-z0-9_-]{3,16}$または^[a-z0-9_-]{6,18}$の出力はmyp4ssw0rdと表示されない可能性

0熱

1答えて

Perl、エイリアスから変数へ

私は現在、perlプログラムのマイクロ最適化を行っていますが、いくつかのゲッターを最適化するのが好きです。 GetABCを呼び出す package Test; our $ABC; sub GetABC { $ABC } # exported sub... （）サブ関連のオーバーヘッドの多くを作成します。私はこのゲッター構造のパッケージを持っています。 $ Test :: ABCを介し

-1熱

1答えて

Perl ref（$ something）はいつ "ARRAY（0x913310）"を返しますか？

$val = ref($something)の値をテストする複雑なPerlコードがあります。残念ながら、$valが"ARRAY(0x913310)"であり、"ARRAY"でない状況があるため（Perlデバッガーによると）、私のコードは失敗します。 ref()のドキュメントを読むと、そのような値は考えられる戻り値の1つとして表示されません。また、デバッガで対話的に再現しようとすると、有効な戻り値しか