! $this->isa("pipe")
[download]

Syntax is correct, though it will die in runtime because $this is not declared.

If you're worried about errors, I recommend instead:

! UNIVERSAL::isa($this, 'pipe')

Just in case there's a possibility that $this might be undef, or an unblessed scalar.

For poetry, I'm not worried about it. Syntax correctness is all that matters, and putting UNIVERSAL in there just adds clutter.

"There is no shame in being self-taught, only in not trying to learn in the first place." -- Atrus, Myst: The Book of D'ni.

I think an easier way to prevent it from die-ing, would be to change that to:  !this->isa('pipe'); or  this->isa(!'pipe'); is another possibility. I agree the  Universal:: just add clutter.

Gyan Kapur

-p '|'
[download]

I like it. Although I think you meant:

!-p _
[download]

-p is a test operator, so your expression is more or less equivalent to a question: "Is _ (=this) not a pipe?".

At least in Unix, '|' is not a valid filename, so -p '|' will always be false: "Is '|' a pipe? No.". So the ASCII representation of a pipe, '|', is never a pipe itself, which is exactly what Magritte meant with his painting.

Or, taking "this" to be $_ as we do, -p and print, print q m n'est pas une pipem, $/; (yes, I mean that ;-)

After Compline,
Zaxo

It's too late now, but if perl had added a special syntax of m!! to indicate a negated match we could use m!\|!. As it is we have a modified form of one of sfink's suggestions: $_ !~ m/\|/.

Also, what about?

pipe(STDIN, STDOUT);
#Optional:
$|--, print STDOUT "This is not a pipe\n" ne <STDIN>;
[download]

--
I'm not belgian but I play one on TV. On dit que je parle comme un belge aussi.

How abstract do you want it?

ref($this) ne 'Pipe';
ref($_) ne 'Pipe';     # $_ is a topicaliser, so is "this" - thus, "th
+is" == "$_"
! UNIVERSAL::can($this, 'smoke');
$_->can('smoke');
[download]

!.isa('Pipe');
[download]

Update: Missed the ! on the perl6 code.

$this = ! pipe $|,$|;
[download]

(This line has actually appeared in production code of mine)

++ to you and your wife for referencing one of my absolute favorite paintings. There's another DaDa painting of a coffin sitting (literally sitting, posed like a person) on a fence or something that cracks me up everytime I see it.

Yep, you are right, I can't type! I meant:

/^[^|]$/;
[download]


TGI says moo

It would match anything. It's an alternation, matching either start of string or end of string.

---

Caution: Contents may have been coded under pressure.

Right you are. I was supposing that this was one of those situations where the regex characters were taken literally, like if you were to do m/^{/;.

thor

Feel the white light, the light within
Be your own disciple, fan the sparks of will
For all of us waiting, your kingdom will come

  ! /^\|$/;
  $this !~ /^\|$/;
  ord($this) != 124;
  ord($this) != 0x7c;
  ord($this) != 0174;
  seek(THIS, 2, 0);
  `ls -l $this` !~ /^p/;
  ! -p _;
  return ! -p _;
  -p _ && die;
  die if -p _;
  return 1 unless -p _;
  use Test::More; isnt($this, 'pipe', 'Magritte check');
  $this ne 'a|';
  next unless /^(\w)\|$/; next if $1 eq 'a';
  open(my $fh, "a|"); while(<$fh>) { die if /\Q$this\E/; }
[download]

$pipe = "3.14159 + pe";
print "this is not a $pipe\n";
[download]

Eh! Why not?

('|'?0:1)==0

die if '|'

$SIG{PIPE}={$p++};END{$p==0}
[download]

  
  if ( $this ne '|' ) {...}
[download]