Help for this page

Select Code to Download


  1. or download this
      export NYTPROF=trace=2:start=init:file=/tmp/nytprof.out
  2. or download this
    if (my $NYTPROF = $ENV{NYTPROF}) {
    for my $optval ( $NYTPROF =~ /((?:[^\\:]+|\\.)+)/g) {
        my ($opt, $val) = $optval =~ /^((?:[^\\=]+|\\.)+)=((?:[^\\=]+|
+\\.)+)\z/;
        s/\\(.)/$1/g for $opt, $val;