One Hat Cyber Team
Your IP :
216.73.216.115
Server IP :
194.44.31.54
Server :
Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64
Server Software :
Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k
PHP Version :
5.6.40
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
home
/
vo
/
bin
/
Edit File:
cleanbib
#!/usr/bin/perl $inputfile=$ARGV[0]; open (infile,$inputfile); # initialize $founditem=0; while(<infile>) { chomp; #first, remove leading and trailing spaces s/^\s*(.*)\s*$/$1/g; #check, if an item starts; we assume items are separated by blank line if (/(^@.*)/) { $founditem = 1; print $1; next; } #check if equal sign present if (/.*=.*/) { print "\n"; } print " $_"; if ($_ eq "") { if ($founditem==1) { print "\n\n"; } $founditem=0; } # s/(.*)=\s*\"(.*)\",\s*$/$1= {$2}/g; # # if (/^\s*\}\s*/) { # } # # print "$comma\n$_"; } print "\n"; close(infile);
Simpan