Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • in the 5.8.9-rc1 that i had handy from a regression test

    of 1270 C-ish file hits using Andy's ack invocation

    nearly one third are in one file alone
      403 toke.c

    most of which and one quarter of the total being exactly
      343 toke.c: goto unknown;

    the long tail continues over 65 files, but a mere 5 files cover 50% in 5 a tie
      403 toke.c
        95 regexec.c
        54 pp_sys.c
        53 sv.c
        39 opmini.c
        39 op.c # tied for 5th
    (subtotal 683 53%)

    and covers 80% at 19 files (17th-21st having 18 each, subtotal 1059 83%)

    (That's a pretty good Pareto approximation!)

    16 are in comments
    17 are in quotes
          including two in comments above
          and 8 are die messages
    16 are #define yacc actions in four files

    Top 30 goto-bearing Cish files -

      403 toke.c
        95 regexec.c
        54 pp_sys.c
        53 sv.c
        39 opmini.c
        39 op.c
        36 util.c
        36 regcomp.c
        30 os2/OS2/Process/Process.xs
        30 gv.c
        29 pp_hot.c
        28 x2p/walk.c
        27 os2/os2.c
        26 perl.c
        25 doio.c
        19 pp_pack.c
        18 x2p/a2p.c
        18 win32/win32.c
        18 utf8.c
        18 pp_ctl.c
        18 perly.c
        17 vms/vms.c
        16 ext/Storable/Storable.xs
        15 ext/SDBM_File/sdbm/dbe.c
        12 pp.c
        12 dump.c
        11 jpl/JNI/JNI.xs
        10 mg.c
          9 ext/Encode/Encode.xs
          8 doop.c

    (30th subtotal 1169 92%)

    (ack did find a few .h as well but they had few each.)

    --
    Bill
    # I had a sig when sigs were cool
    use Sig;