คำถามในหัวข้อ 'perl'
ฉันจะค้นหาจำนวนหน่วยความจำกายภาพที่แน่นอนบน Windows x86-32 บิตโดยใช้ Perl หรือภาษาอื่น ๆ ได้อย่างไร
ฉันจำเป็นต้องรู้ว่าเครื่อง Windows มีหน่วยความจำกายภาพเท่าใดโดยใช้ Perl
ฉันได้ลองใช้ Win32::SystemInfo แล้ว อย่างไรก็ตาม โมดูลนี้ระบุคำเตือนต่อไปนี้:
บนคอมพิวเตอร์ Intel x86 ที่มีหน่วยความจำมากกว่า 2 GB และน้อยกว่า 4 GB ฟังก์ชัน...
9048 มุมมอง
schedule
04.01.2024
วิธีใช้ XML :: XPath เพื่อรับโหนดพาเรนต์
ฉันต้องการแยกวิเคราะห์ไฟล์ XML โดยใช้ xPaths หลังจากได้รับโหนดแล้ว ฉันอาจต้องทำการค้นหา xPath บนโหนดหลัก รหัสปัจจุบันของฉันที่ใช้ XML::XPath คือ:
my $xp = XML::XPath->new(filename => $XMLPath);
# get all foo or foos node with a name
my...
9825 มุมมอง
schedule
09.01.2024
ฉันจะลบลิงก์ภายนอกออกจาก HTML โดยใช้ Perl ได้อย่างไร
ฉันกำลังพยายามลบลิงก์ภายนอกออกจากเอกสาร HTML แต่เก็บจุดยึดไว้ แต่ฉันโชคไม่ดีนัก regex ต่อไปนี้
$html =~ s/<a href="/th.+?\.htm">(.+?)<\/a>/$1/sig;
จะจับคู่จุดเริ่มต้นของแท็ก Anchor และส่วนท้ายของแท็กลิงก์ภายนอก เช่น
<a...
3091 มุมมอง
schedule
26.10.2023
มีวิธีง่าย ๆ ในการตรวจสอบความถูกต้องขององค์ประกอบแฮชที่มีอยู่และถูกกำหนดไว้หรือไม่?
ฉันต้องตรวจสอบความถูกต้องของ Perl hash ขององค์ประกอบแฮช เช่น $Table{$key1}{$key2} เพื่อให้มีอยู่และถูกกำหนดไว้ นี่คือสิ่งที่ฉันทำ (ฉันไม่รู้ว่า $key1 มีอยู่ด้วยซ้ำ)
if
((defined $Table{$key1}) &&
(exists $Table{$key1}) &&...
2637 มุมมอง
schedule
21.12.2023
ค้นหาอาร์เรย์ออบเจ็กต์เพื่อจับคู่ค่าหลายค่าที่เป็นไปได้โดยใช้ตัวดำเนินการเปรียบเทียบที่แตกต่างกัน
ฉันมีฟังก์ชันในการค้นหาอาร์เรย์ของออบเจ็กต์เพื่อหาค่าที่ตรงกันโดยใช้ตัวดำเนินการ eq ดังนี้:
sub find {
my ( $self, %params ) = @_;
my @entries = @{ $self->{_entries} };
if ( $params{filename} ) {
@entries = grep {...
1388 มุมมอง
schedule
09.01.2024
ฉันจะทำให้โปรแกรมรวบรวมข้อมูลเว็บ Perl ของฉันทำงานเร็วขึ้นได้อย่างไร
เมื่อสองวันที่ผ่านมาฉันได้ทำโปรเจ็กต์สัตว์เลี้ยงเล็กๆ น้อยๆ ซึ่งประกอบด้วยการสร้างโปรแกรมรวบรวมข้อมูลในภาษา Perl
ฉันไม่มีประสบการณ์จริงในภาษา Perl (เฉพาะสิ่งที่ฉันได้เรียนรู้ในช่วงสองวันที่ผ่านมา) สคริปต์ของฉันเป็นดังนี้:
ACTC.pm:...
1751 มุมมอง
schedule
07.11.2023
แยกข้อมูลจากฐานข้อมูล Postgres ไปยัง XML ผ่าน Perl - ปัญหาการเข้ารหัส
ฉันมีฐานข้อมูล Postgres ที่เข้ารหัสเป็น UTF-8 ฉันใช้ Perl กับโมดูลต่อไปนี้:
use DBI
use XML::Generator::DBI
use XML::SAX::Writer
เพื่อแยกข้อมูลในฐานข้อมูล Postgres ไปยังไฟล์ XML โดยใช้แบบสอบถาม เช่น:
use DBI;
use XML::Generator::DBI;
use...
1013 มุมมอง
schedule
16.11.2023
เรียกใช้สคริปต์โดยอัตโนมัติเพื่ออ่านข้อมูลเฉพาะจากไฟล์ .txt ? (สคริปต์ Perl หรือแนะนำ)
สถานการณ์ของฉัน: ไฟล์ข้อความจะเข้ามาในโฟลเดอร์เรื่อยๆ ฉันต้องตรวจจับไฟล์ข้อความใหม่ และอ่านข้อมูลเฉพาะจากไฟล์นั้น โดยบอกว่ามีรูปแบบ (คำ : ข้อมูล หรือคำ และใต้คอลัมน์ข้อมูล ฯลฯ) และกระบวนการนี้จำเป็นต้องดำเนินต่อไปอย่างต่อเนื่อง
ปัญหา:...
200 มุมมอง
schedule
29.11.2023
Perl regex ช่วยจับคู่อักขระใดๆ ยกเว้นช่องว่างต่อท้าย
กำลังมองหาความช่วยเหลือเกี่ยวกับ Perl ฉันไม่เก่งกับ regexes แต่โดยพื้นฐานแล้วฉันต้องการความช่วยเหลือดังนี้:
-strip out the leading blank line
-regex for any value after the directory `/foo/bar/set`, excluding trailing spaces...
332 มุมมอง
schedule
16.01.2024
ค่าผกผันของตัวแก้ไข Perl regex X
ฉันต้องการใช้นิพจน์ทั่วไปของ Perl เพื่อจับคู่สตริงดังนี้:
spaM
s p a m
sp Am
S p a m
เมื่อดูตัวดัดแปลง x ของ Perl ฉันควรจะทำสิ่งนี้ได้:
<?php
echo preg_match('#spam#ix', 's p a m');
?>
แต่สิ่งนี้พิมพ์ออกมา 0 (เท็จ)...
508 มุมมอง
schedule
13.11.2023
ในภาษา Perl ฉันจะเข้าร่วมบรรทัดอินพุตกับบรรทัดถัดไปได้อย่างไรหากบรรทัดแรกลงท้ายด้วยเครื่องหมายโคลอน
เส้นของฉัน:
ABC: XYZ
XYZ ABC: XYZ
XYZ:
ABC
XYZ
ABC:
AAB
CCD
ฉันต้องการรวมบรรทัดที่ลงท้ายด้วยโคลอน โดยมีบรรทัดถัดไป:
ABC: XYZ
XYZ ABC: XYZ
XYZ: ABC
XYZ
ABC: AAB
CCD
246 มุมมอง
schedule
12.12.2023
ฉันจะติดตั้งโมดูล Perl DateTime บน Mac OSX 10.6.1 ได้อย่างไร
โอเค ฉันรู้วิธีติดตั้งโมดูล Perl ด้วย cpan และทำมาหลายปีแล้ว แต่เมื่อฉันพยายามติดตั้งโมดูล DateTime บน Mac เครื่องนี้ มันล้มเหลว โดยอ้างว่าไม่พบคอมไพเลอร์
นี่คือผลลัพธ์บางส่วนจากการพยายามติดตั้งหนึ่งในข้อกำหนดเบื้องต้น Params::Validate: (...
4478 มุมมอง
schedule
24.10.2023
ต้องการคำแนะนำเกี่ยวกับวิธีที่ดีที่สุดในการกรองไฟล์ข้อความตามตารางอ้างอิง
ขณะนี้ฉันกำลังมองหาวิธีเพิ่มประสิทธิภาพกระบวนการที่ ใช้เวลานานในการทำงาน
มีไฟล์ข้อความประมาณ 270 ไฟล์ที่ต้องกรอง
แต่ละไฟล์มีประมาณ 70,000 ~ 150,000 บรรทัด
ตารางอ้างอิงมักจะมีบันทึกประมาณ 16 ล้าน ภายใต้ Oracle 10g...
89 มุมมอง
schedule
20.11.2023
ภาพ::Magick บน Strawberry Perl 5.12
ฉันกำลังพยายามติดตั้ง Image::Magick บน Strawberry Perl 5.12 บน Windows XP แต่ไม่พบ ImageMagick โมดูลเมื่อสร้าง makefile make ยังมีข้อผิดพลาดของคอมไพเลอร์มากมาย
ฉันทำสิ่งที่เขียนไว้ใน readme ของ Image::Magic :
Installation - Win32...
4009 มุมมอง
schedule
04.11.2023
การเปลี่ยนชื่อไฟล์เป็นชื่อโฟลเดอร์
สวัสดี.
ฉันมีโฟลเดอร์ภาพยนตร์ที่มีโฟลเดอร์ย่อยอยู่ข้างใน ในโฟลเดอร์ย่อยเหล่านั้น (ซึ่งเป็นชื่อของภาพยนตร์) คือไฟล์ภาพยนตร์จริงๆ ซึ่งฉันต้องการเปลี่ยนชื่อจาก somename.nfo เป็น subfoldername.release และจาก somename.mkv เป็น...
195 มุมมอง
schedule
13.11.2023
วิธีรวมสองรายการตามองค์ประกอบ
ฉันต้องการแยกวิเคราะห์ไฟล์ทีละบรรทัด ซึ่งแต่ละไฟล์มีจำนวนเต็มสองตัว จากนั้นรวมค่าเหล่านี้เป็นตัวแปรที่แตกต่างกันสองตัว แนวทางที่ไร้เดียงสาของฉันเป็นเช่นนี้:
my $i = 0;
my $j = 0;
foreach my $line (<INFILE>)
{
($i, $j) += ($line =~...
317 มุมมอง
schedule
11.11.2023
เชื่อมต่อไฟล์ในโฟลเดอร์เดียวใน Perl ใช้ linux shell script
ใน linux หากต้องการเชื่อมไฟล์ทั้งหมดเข้าด้วยกันภายใต้โฟลเดอร์ คุณสามารถทำได้ file=FOLDER/*; cat $file > ONEFILE ฉันต้องการใช้สิ่งนี้ในสคริปต์ Perl ของฉันด้วยดังนั้นฉันจึงเขียนโค้ดเช่น system("file=$folder/*");
system("cat \$file > $out");...
1633 มุมมอง
schedule
22.12.2023
พารามิเตอร์อินพุต Perl [ซ้ำกัน]
รายการซ้ำที่เป็นไปได้: ฉันจะส่งผ่านอาร์กิวเมนต์บรรทัดคำสั่งไปยังโปรแกรม Perl ได้อย่างไร
ฉันมีโค้ดที่แยกวิเคราะห์ไฟล์อินพุตและส่งออกไฟล์ .stat และไฟล์ .csv ฉันต้องใช้รหัสอะไรบ้างเพื่อเรียกใช้สคริปต์ Perl จากพรอมต์คำสั่งเช่นนี้
perl...
1777 มุมมอง
schedule
09.01.2024
Perl : Regex (การซ้ำที่ตรงกัน)
ฉันมีคำถามด่วน ฉันทำอะไรผิดในโค้ดด้านล่าง:
#!/usr/bin/perl -w
use strict;
my $num = "12345";
print "$num \n" if $num =~ m/\d{1,3}/;
เนื่องจากตัวเลขของฉันมีความยาว 5 หลัก ฉันหวังว่าผลลัพธ์ไม่ควรพิมพ์อะไรเลย...
1977 มุมมอง
schedule
10.11.2023
การใช้ค่าที่ไม่ได้กำหนดค่าเริ่มต้นในการต่อข้อมูล (.) หรือสตริงที่ ./Merge_gcov_generalised.pl บรรทัด 226, ‹FILE2› บรรทัด 284046 (#1)
ฉันได้เขียนสคริปต์ Perl เพื่อรวมไฟล์ gcov จากเครื่องต่างๆ ด้านล่างนี้เป็นรูทีนย่อยที่ฉันเขียนเพื่อรวมเข้าด้วยกัน
sub merge_gcov()
{
open(FILE1, "<$_[0]") or die "can not open file";
open(FILE2, "<$_[1]") or die "can not...
2189 มุมมอง
schedule
08.11.2023
