use 5.010;
use strict;
use warnings;
use File::Slurp qw(slurp);

my $text     = slurp(__FILE__);
my $length   = length $text;
my $perlish  = ($text =~ y(@$%;{}[]<>=~)//);
my $metric   = $perlish / $length;

say "Metric is $metric";

if ($metric > 0.10) {
    say "Looks like code";
}

elsif ($metric < 0.03) {
    say "Looks like text";
}

else {
    say "Debatable";
}
[download]

I've only tried this on a few sample inputs, but it hasn't failed once. It correctly detects itself.

As you can see, it's a very simple metric, so should be trivial to port to Javascript or anything else.

yep, it's an extended version of my sigil-frequency idea... but it's a good start, THANKS! =)

But IMHO it would be necessary to roughly strip:

• comments,
• strings,
• here-docs and
• __DATA__, __END__ sections,

since adding some comments makes your example already "debatable".

BTW: I tried your Nodelethack in Re^3: CSS Show and Tell: Colored Code but it didn't work for me...:(

Do you know if CodeMagic provides an API to do code sniffing or is the logic internal?

Cheers Rolf

1) Comments:

my $count = ($line =~ s/[#] .*? \n//xms);
$total += $count;
[download]

2) Strings:

$line =~ s/["'] [^'"\n] ['"]//gxms
[download]

3) use statements:

$count = ($line =~ s/use [^;]+ ;//gxms);
$total += $count;
[download]

4) Here docs:

my $count = ($all_text =~ s/<<(\w+) .*? \1//gxms); 
$total += $count;
[download]

5) __DATA__, __END__:

$total++ if $all_text =~ s/(__DATA__|__END__) .*//xms;
[download]

Although, I would argue that if __DATA__ or __END__ appear anywhere in the text, then you couldn't go wrong by delcaring then and there that the text has perl code in it.

thanks but you forgot to link to PPI.js

Cheers Rolf

thanks but you forgot to link to PPI.js

PPI is fairly straightforward, s/// is easily converted to .replace, the regex are the simple variety, it is possible

OTOH :) Re^2: CSS Show and Tell: Colored Code