Back | Home
الـ Path الحالي: /home/picotech/domains/instantly.picotech.app/public_html/public/./../app/.././../../finland.picotech.app/public_html/storage/../vendor/./phpoption/../laravel/../nikic/../telnyx/../phenx/../phpoption/../tijsverkoyen/../dompdf/../firebase/../authorizenet/authorizenet/scripts
الملفات الموجودة في هذا الـ Path:
.
..
appendJsonSerializeCode.pl
appendJsonSerializeCode.txt
appendJsonSerializeSubClassCode.txt
appendSetCode.pl
appendSetCode.txt
appender.sh
backup.pl
composer.json.masterUpdate
finish.sh
generateControllersFromTemplate.sh
generateObjectsFromXsd.sh
masterUpdate.sh
post-patches.sh
prepare.sh
مشاهدة ملف: appendJsonSerializeCode.pl
#!/usr/bin/perl
use strict;
use warnings;
#my $text = `cat ARBGetSubscriptionRequest.php`;
#my $sub = `cat appendSetCode.txt`;
#$text =~ s|(.+)}|$1$sub|xms;
#print 'Result : '.$text."\n";
while (<>) {
chomp;
my $filepath = "lib/net/authorize/api/contract/v1/";
my $filename = "$filepath"."$_";
my $text = `cat $filename`;
my $sub = "";
if ($text =~ /(?^pm:\nclass \w+ extends )/) {
$sub = `cat scripts/appendJsonSerializeSubClassCode.txt`;
} else {
$sub = `cat scripts/appendJsonSerializeCode.txt`;
}
$text =~ s|(.+)}|$1$sub|xms;
open(my $fh, '>', "$filename");
print $fh $text;
close $fh;
# print 'Result : '.$text."\n";
}
#unless(mkdir 'backup') {
# die "Unable to create directory backup\n";
# }
#open(my $fh, '>', 'backup/ARBGetSubscriptionRequest copy2.php');
#print $fh "My first report generated by perl\n";
#close $fh;