Файловый менеджер - Редактировать - /home/clickysoft/public_html/calvary-p2.clickysoft.net/vendor/authorizenet/authorizenet/scripts/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;
| ver. 1.4 |
Github
|
.
| PHP 8.1.29 | Генерация страницы: 0.01 |
proxy
|
phpinfo
|
Настройка