From 8bfc5756fb68e0b13d7e7c0073ad5b9a4790d1b6 Mon Sep 17 00:00:00 2001 From: rmanfredi Date: Thu, 24 Aug 2006 12:32:52 +0000 Subject: Moving project to sourceforge. git-svn-id: https://dist.svn.sourceforge.net/svnroot/dist/trunk/dist@1 190e5f8e-a817-0410-acf6-e9863daed9af --- pl/listedit.pl | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 pl/listedit.pl (limited to 'pl/listedit.pl') diff --git a/pl/listedit.pl b/pl/listedit.pl new file mode 100644 index 0000000..4eb5c81 --- /dev/null +++ b/pl/listedit.pl @@ -0,0 +1,36 @@ +;# $Id$ +;# +;# Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi +;# +;# You may redistribute only under the terms of the Artistic Licence, +;# as specified in the README file that comes with the distribution. +;# You may reuse parts of this distribution only within the terms of +;# that same Artistic Licence; a copy of which may be found at the root +;# of the source tree for dist 4.0. +;# +;# $Log: listedit.pl,v $ +;# Revision 3.0.1.2 1993/08/27 14:40:57 ram +;# patch7: forgot to unlink temporary file +;# +;# Revision 3.0.1.1 1993/08/25 14:08:12 ram +;# patch6: created +;# +;# Requires geteditor.pl +;# +# Allow user to inplace-edit a list of items held in an array +sub listedit { + local(*list) = @_; + local($tmp) = "/tmp/dist.$$"; + local($editor) = &geteditor; + open(TMP, ">$tmp") || die "Can't create $tmp: $!\n"; + foreach $item (@list) { + print TMP $item, "\n"; + } + close TMP; + system "$editor $tmp"; + open(TMP, "$tmp") || die "Can't reopen $tmp: $!\n"; + chop(@list = ); + close TMP; + unlink $tmp; +} + -- cgit v1.2.3