×

Loading...
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。

@Florida

求助! 哪位大侠能帮忙把这段shell script 改写成perl on windows? 多谢多谢!

zj88(alec)
#!/bin/sh

# time between each screen
refresh_timeout=5

# location of screens
home_dir=screens

# temp runtime file for tracking current screen
cntfile=/var/cnt

# if no cntfile (e.g. when starting) default to #1
if [ -f $cntfile ]; then
cnt=`cat $cntfile`
else
cnt=1
fi

# wrap when we run out
if [ ! -f ../$home_dir/$cnt.jpg ]; then
cnt=1
fi

# html stuff
echo "Content-type: text/html"
echo ""
echo "<HTML>"
echo "<HEAD>"
echo "<TITLE>Slideshow</TITLE>"
echo "<meta http-equiv=\"Refresh\" Content=\"$refresh_timeout; URL=/cgi-bin/display.sh\">"
echo "</HEAD>"
echo "<BODY bgcolor=\"#ffffff\" text=\"#ffffff\">"
echo "<a href=\"/cgi-bin/print.sh\"><img align=\"left\" img border=\"0\" img src=\"/$home_dir/$cnt.jpg\"</a>"
echo "</BODY></HTML>"

# point to next screen
let cnt="$cnt+1"
echo $cnt > $cntfile
(#1954657@0)
Last Updated: 2004-10-29
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / IT技术讨论 / 求助! 哪位大侠能帮忙把这段shell script 改写成perl on windows? 多谢多谢! -zj88(alec); 2004-10-29 {902} (#1954657@0)
    #!/bin/sh

    # time between each screen
    refresh_timeout=5

    # location of screens
    home_dir=screens

    # temp runtime file for tracking current screen
    cntfile=/var/cnt

    # if no cntfile (e.g. when starting) default to #1
    if [ -f $cntfile ]; then
    cnt=`cat $cntfile`
    else
    cnt=1
    fi

    # wrap when we run out
    if [ ! -f ../$home_dir/$cnt.jpg ]; then
    cnt=1
    fi

    # html stuff
    echo "Content-type: text/html"
    echo ""
    echo "<HTML>"
    echo "<HEAD>"
    echo "<TITLE>Slideshow</TITLE>"
    echo "<meta http-equiv=\"Refresh\" Content=\"$refresh_timeout; URL=/cgi-bin/display.sh\">"
    echo "</HEAD>"
    echo "<BODY bgcolor=\"#ffffff\" text=\"#ffffff\">"
    echo "<a href=\"/cgi-bin/print.sh\"><img align=\"left\" img border=\"0\" img src=\"/$home_dir/$cnt.jpg\"</a>"
    echo "</BODY></HTML>"

    # point to next screen
    let cnt="$cnt+1"
    echo $cnt > $cntfile
    • Dame, So easy perl and shell script you need other help? What are you doing ??? see my convert ;) -nohairmonk(无毛和尚); 2004-10-31 {753} (#1957170@0)
      $home_dir = 'screens';
      $filename = '/var/cnt';
      if (-e "$filename")
      {
      open(FH, $filename);
      $cnt = <FH>;
      chomp( $cnt );
      }
      else
      {
      $cnt =1;
      }

      close(FH);
      open(FH2, ">$filename");
      print FH2 $cnt+1;
      close(FH2);
      print <<NOHAIRMONK
      Content-type: text/html

      <HTML>
      <HEAD>
      <TITLE>Slideshow</TITLE>
      <meta http-equiv=Refresh Content=5
      </HEAD>
      <BODY bgcolor=#ffffff text=#ffffff>
      <a href=/cgi-bin/print.sh><img align=left img border=0 img src=/$home_dir/$cnt.jpg</a>
      </BODY></HTML>
      NOHAIRMONK

More Topics

  • 脑洞大开，突发奇想，用力来传播信息
  • 看大家讨论日语，俺也正在认真学习。其实语言问题应该是很快也很容易就解决的，可能比自动驾驶来的还快。TREK里面，全宇宙的人都在大脑里安装了UNIVERSAL TRANSLATOR，外星人之间相互交流无障碍。废话少说，看视频。。。加上个MIC和耳机，不同国家的人就可以无障碍交流。
  • 肉脸真有搞 IT 的？Linux 把俄国中国伊朗踢出去了好像肉脸 IT 没啥感觉似的
  • 请问web developer和software developer技术上有什么区别？
  • Elon Musk 带着川普总统奔向火星了。
    • 枫下论坛主坛 /  工作学习 /  IT技术讨论