[TxMt] Improved Perl "Read File" snippet

[Michael G Schwern]

Michael Sheets wrote:
> On Jan 21, 2008, at 4:55 PM, Michael G Schwern wrote:
> 
>> Hi.   I happened to notice that the Perl "Read File" snippet was using 
>> bareword filehandles and doing a lot more work than it has to.  The 
>> following uses lexical filehandles, 3-argument open (to prevent 
>> anything in the filename from being misinterpreted as an open sigil) 
>> and a do block to simplify the assignment.
>>
>> Finally, a third, blank position is provided so you can tab straight 
>> to the next line instead of the end of the block.
>>
>> my \$${1:var} = do { local \$/; open my \$fh, "<", "${2:file}"; 
>> <\$fh>; };
>> $3
> 
> The $3 here is actually bad in this case, once you tab to it your still 
> inside the snippet. There is always an implicit $0 at the end of a 
> snippet (unless it is defined elsewhere) that will be the last tab and 
> remove you from the snippet 'mode'.

I see.  Just have to make sure to have a newline at the end of the snippet.  I 
must have been missing it before.


-- 
Stabbing you in the face for your own good.