Hallo Welt!

von raredesign | Dez 3, 2019 | Allgemein | 0 Kommentare

Cokiee Shell

Current Path : /proc/self/root/usr/local/lib/perl/5.10.1/Net/

Upload File :

Current File : //proc/self/root/usr/local/lib/perl/5.10.1/Net/ptrtstrun.pl

use Config;

print "cc: " . $Config{'cc'} . "\n";

if(runptrcasttst()) {
  print "ok\n";
} else {
  print "not ok.\n";
}

sub runptrcasttst {
  if( !($r = system "$Config{'cc'} -o ptrcasttst ptrcasttst.c") ) {
    print "ok\n";
  } else {
    print "not ok\n";
    return 0;
  }
  if( !($r = system "./ptrcasttst") ) {
    print "ok\n";
    return 1;
  } else {
    print "not ok\n";
    return 0;
  }
  return 0;
}

Cokiee Shell Web 1.0, Coded By Razor

Kommentar absenden Antworten abbrechen

Du musst angemeldet sein, um einen Kommentar abzugeben.