[Subject Prev][Subject Next][Thread Prev][Thread Next][Subject Index][Thread Index]

[linux-users:32412] Re: PS ファイルの整形


質問者の梶本です。

watanabe> ソースを全部見たわけじゃないからまだあるかもしれないけど,
watanabe> とりあえず.

わたなべ様から教えて頂いた方法で,うまくいきました。ありがとうございま
した。
perlも勉強せねば...

#######
結局,perl4用のpsmultiは,/usr/local/lib/psmulti以下のファイルを下のよ
うに修正することでperl5で使えるようになりました。(わたなべ様からのメー
ルの引用)

--- pspp-util.pl.orig	Mon Apr 12 19:55:55 1993
+++ pspp-util.pl	Tue Aug  4 10:04:21 1998
@@ -90,3 +90,3 @@
 
-    if ( $line =~ /@{([^\s}]+)}/ )
+    if ( $line =~ /\@{([^\s}]+)}/ )
       { $leading=$`; $macro=$1; $trailing=$';
@@ -103,3 +103,3 @@
 
-    elsif ( $line =~ /@([^\s]+)(\s+|$)/ )
+    elsif ( $line =~ /\@([^\s]+)(\s+|$)/ )
       {
--- format-raw.pl.orig	Mon Sep 29 14:12:17 1997
+++ format-raw.pl	Tue Aug  4 15:00:22 1998
@@ -249,5 +249,5 @@
     foreach(@DocExport)
-      { $value=eval "\$$_{\"$File\"}";
+      { $value=eval "\$${_}{\"$File\"}";
         if ( $value =~ /^\s*$/ )
-          { $value=eval "\$$_{Default}";
+          { $value=eval "\$${_}{Default}";
              if ( $value =~  /^\s*$/ )
--- format-standard.pl.orig	Mon Sep 29 14:12:17 1997
+++ format-standard.pl	Tue Aug  4 15:00:46 1998
@@ -261,5 +261,5 @@
     foreach(@DocExport)
-      { $value=eval "\$$_{\"$File\"}";
+      { $value=eval "\$${_}{\"$File\"}";
         if ( $value =~ /^\s*$/ )
-          { $value=eval "\$$_{Default}";
+          { $value=eval "\$${_}{Default}";
              if ( $value =~ /^\s*$/ )

この情報があなたの探していたものかどうか選択してください。
yes/まさにこれだ!   no/違うなぁ   part/一部見つかった   try/これで試してみる

あなたが探していた情報はどのようなことか、ご自由に記入下さい。特に「まさにこれだ!」と言う場合は記入をお願いします。
例:「複数のマシンからCATV経由でipmasqueradeを利用してWebを参照したい場合の設定について」
References: