Re^2: Detecting 'binary' in a variable

Not always

$ perl -le '{local$/; $_=<>;}print /^[\x00-\xA5]/ ? "binary" : "text" 
+' \
  /mnt/win/WINDOWS/system32/command.com

text
[download]

Comment on Re^2: Detecting 'binary' in a variable Download Code

Replies are listed 'Best First'.
Re^3: Detecting 'binary' in a variable by Transient (Hermit) on Jul 05, 2005 at 18:23 UTC
That's correct, but that's not the same regexp: `/^[\x00-\xA5]/` [download] ne `/[^\x00-\xA5]/` [download]	[reply] [d/l] [select]
Re^4: Detecting 'binary' in a variable by dbwiz (Curate) on Jul 05, 2005 at 18:31 UTC
Sorry. My fault. But then, again, any text with accented vowels (à,è etc., in Italian, French, Spanish) will look like binary.	[reply]
Re^5: Detecting 'binary' in a variable by Transient (Hermit) on Jul 05, 2005 at 18:36 UTC
\xA5 = 165 which should match just about everything except Greek (as per the OP's specs). Unicode not considered either.	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks