File: example.pl

package info (click to toggle)
libproc-invokeeditor-perl 1.02-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny, squeeze
  • size: 88 kB
  • ctags: 13
  • sloc: perl: 216; makefile: 38
file content (13 lines) | stat: -rw-r--r-- 220 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/local/bin/perl -w

use strict;
use Proc::InvokeEditor;

my @result = Proc::InvokeEditor->edit("foo\nbar\nbaz\n");

use Data::Dumper;
print Dumper(@result);

foreach my $line (@result) {
  print "Line: $line\n";
}