การใช้ "ในขณะที่จริง" เพื่อให้สคริปต์มีชีวิตอยู่เป็นความคิดที่ดี?

ฉันแค่กระโดดเข้าสู่ยูนิกซ์จากโลกที่แตกต่างและอยากรู้ว่า

while true
do
  /someperlscript.pl
done

สคริปต์ perl ภายในมีโฟลเดอร์ / ตัวเฝ้าดูไฟล์ที่ดำเนินการเมื่อไฟล์ถูกเปลี่ยนในตำแหน่งเป้าหมาย

นี่while trueเป็นความคิดที่ดีหรือไม่? ถ้าไม่เป็นวิธีการที่แข็งแกร่งที่ต้องการคืออะไร?

TIA

แก้ไข: เนื่องจากสิ่งนี้ดูเหมือนว่าจะสร้างความสนใจพอสมควรนี่เป็นสถานการณ์ที่สมบูรณ์ สคริปต์ perl ตัวเองดูไดเรกทอรีโดยใช้ตัวตรวจสอบไฟล์ เมื่อได้รับไฟล์ใหม่ (พวกเขามาถึงทาง rsync) มันจะรับไฟล์ใหม่และดำเนินการ ตอนนี้ไฟล์ที่เข้ามาอาจเสียหาย (อย่าถาม .. มาจาก raspberry pi) และบางครั้งกระบวนการอาจไม่สามารถจัดการกับมันได้ ฉันไม่รู้ว่าทำไมเพราะเรายังไม่ได้ตระหนักถึงสถานการณ์ทั้งหมด

แต่ - หากกระบวนการล้มเหลวด้วยเหตุผลบางอย่างเราต้องการให้มันทำงานและจัดการกับไฟล์ถัดไปเพราะไฟล์ถัดไปไม่เกี่ยวข้องอย่างสมบูรณ์กับไฟล์ก่อนหน้าซึ่งอาจทำให้เกิดข้อผิดพลาด

โดยปกติฉันจะใช้การจับบางอย่างและห่อโค้ดทั้งหมดไว้รอบ ๆ เพื่อไม่ให้เกิดปัญหา แต่ก็ไม่แน่ใจเรื่อง Perl

จากสิ่งที่ฉันเข้าใจการใช้สิ่งต่าง ๆ เช่น supervisord เป็นวิธีการที่ดีสำหรับสิ่งนี้

ขึ้นอยู่กับความเร็วของสคริปต์ Perl ที่คืนมา หากมันกลับมาอย่างรวดเร็วคุณอาจต้องการแทรกการหยุดชั่วคราวเล็กน้อยระหว่างการประมวลผลเพื่อหลีกเลี่ยงการโหลด CPU เช่น:

while true
do
  /someperlscript.pl
  sleep 1
done

วิธีนี้จะป้องกัน CPU hog หากไม่พบสคริปต์หรือขัดข้องทันที

การวนซ้ำอาจทำได้ดีกว่าในสคริปต์ Perl เพื่อหลีกเลี่ยงปัญหาเหล่านี้

แก้ไข:

ในขณะที่คุณเขียนลูปวัตถุประสงค์เพียงอย่างเดียวคือการรีสตาร์ทสคริปต์ perl หากมันล้มเหลวแนวทางที่ดีกว่าคือการใช้มันเป็นบริการที่ได้รับการตรวจสอบ แต่วิธีที่แม่นยำในการขึ้นอยู่กับระบบปฏิบัติการ เช่น Solaris smf, Linux systemd หรือ cron based restarter

คำตอบอื่น ๆ เกี่ยวกับการใช้inotifyถูกต้อง แต่ไม่ใช่คำตอบสำหรับคำถามนี้

หัวหน้างานกระบวนการเช่นsupervisord, upstartหรือrunitถูกออกแบบมาสำหรับตรงปัญหาในการรับชมและรีสตาร์ทบริการถ้ามันเกิดปัญหา

distro ของคุณอาจมาพร้อมกับผู้ควบคุมกระบวนการในตัว

while trueก็ดีเหมือนการก่อสร้างแบบ "วนตลอดไป" สำหรับจุดประสงค์ทั่วไป ดังที่คำตอบอื่น ๆ บอกว่าร่างกายของลูปไม่ควรว่างเปล่าหรือว่างเปล่าโดยอาศัยคำสั่งภายในลูปที่ไม่ทำงาน

หากคุณใช้ Linux คุณอาจต้องการใช้คำสั่งinotifywaitที่ทำให้whileลูปง่ายขึ้นมาก:

while inotifywait -qqe modify "$DIRECTORY"
do
    process_the_directory "$DIRECTORY"
done

ที่นี่inotifywaitคำสั่งจะนั่งรอเหตุการณ์ระบบไฟล์ที่จะเกิดขึ้น (ในตัวอย่างนี้เมื่อไฟล์ในไดเรกทอรีถูกเขียนไป) ณ จุดนั้นมันจะออกสำเร็จและเนื้อความของลูปจะดำเนินการ จากนั้นกลับไปรออีกครั้ง เนื่องจากinotifywaitคำสั่งรอให้มีบางสิ่งเกิดขึ้นในไดเรกทอรีจึงมีประสิทธิภาพมากกว่าการสำรวจไดเร็กทอรีอย่างต่อเนื่อง

ย้ายสักครู่ 1 ไปที่สคริปต์ perl (ทำตามคำแนะนำ @roaima)

#!/usr/bin/perl

 use Linux::Inotify2;

 my $inotify = new Linux::Inotify2 or die "unable to inotify: $!";

 $inotify->watch ("Dir", IN_MODIFY, ## or in_{acess,create,open, etc...}
   sub { my $e = shift;
     my $name = $e->fullname;
     ## whatever 
     print "$name was modified\n" if $e->IN_MODIFY;
  });

 1 while $inotify->poll;

เมื่อสคริปต์ Perl ของคุณมีวัตถุประสงค์เพื่อให้ทำงานตลอดเวลาทำไมใช้ในขณะที่การก่อสร้าง? เมื่อ perl ล้มเหลวในมุมมองของปัญหาร้ายแรงสคริปต์ perl ใหม่ที่เริ่มต้นในขณะที่อาจล้มเหลวอย่างหนัก อีกครั้งและอีกครั้งและสิ่งที่เกี่ยวกับ
หากคุณต้องการให้ perl ของคุณเริ่มต้นใหม่ให้ลองพิจารณา crontab และสคริปต์ที่ตรวจสอบการใช้งานอินสแตนซ์ก่อน วิธีนี้สคริปต์ของคุณจะเริ่มต้นหลังจากรีบูต

โดยทั่วไปจะไม่มีปัญหาในการใช้while trueเนื่องจากเป็นการทดสอบเล็ก ๆ ซึ่งจะดำเนินการหลังจากสคริปต์ perl สิ้นสุดลงเท่านั้น โปรดทราบว่าสคริปต์ Linux / Unix ที่คุณใช้นั้นขึ้นอยู่กับว่าสคริปต์นั้นถูกยกเลิกเมื่อออกจากระบบ ในกรณีดังกล่าวให้พิจารณาใช้การวนรอบในสคริปต์และเรียกมันด้วยnohupและวางไว้ในพื้นหลังเช่นnohup myscript &

หาก Perl สคริปต์ยุติบ่อยเกินไปและทำให้เกิดภาระของ CPU กว่าภาระนี้มีความรับผิดชอบต่อ Perl while trueสคริปต์และไม่

ดูman nohupรายละเอียดเพิ่มเติมที่

หากคุณต้องการจัดการกระบวนการคุณอาจต้องมองหาผู้จัดการกระบวนการเพื่อทำเช่นนั้น

ด้วยระบบล่าสุดจำนวนมากคุณสามารถใช้systemdเพื่อตรวจสอบกระบวนการของคุณ (ซึ่งเป็นหนึ่งในประโยชน์ของ systemd ผ่านสคริปต์เริ่มต้นแบบคลาสสิก) หาก distro ที่คุณเลือกไม่ได้ใช้ systemd คุณสามารถใช้daemontoolsหรือmonit

การwhileวนซ้ำไม่ใช่ความคิดที่ดีจริงๆ ไม่มีการหลบหนีอยู่ที่นั่น - มันก็วิ่งไปตลอดกาล - แบบคงที่ สิ่งต่าง ๆ สามารถเปลี่ยนแปลงได้ในสภาพแวดล้อมและจะไม่ได้รับผลกระทบ - และสิ่งนี้อาจไม่ดี

ตัวอย่างเช่นถ้าเชลล์ที่สามารถเรียกใช้งานได้ที่รับผิดชอบการwhileวนรอบนั้นเคอร์เนลจะไม่สามารถปล่อยพื้นที่ว่างในดิสก์สำหรับเวอร์ชันเก่าจนกว่าสคริปต์นั้นจะหยุดทำงานเนื่องจากจะต้องรักษา descriptor ไว้ตราบเท่าที่รัน และนั่นเป็นความจริงสำหรับไฟล์ใด ๆ ที่เชลล์อาจเปิดด้วยเหตุผลใดก็ตามที่รันลูป - พวกมันจะถูกเปิดโดยwhileลูปนี้ตราบใดที่มันรัน - ตลอดไป

และถ้าห้ามสวรรค์มีหน่วยความจำได้ทุกที่รั่วไหลในเปลือกทำงานที่ห่วง - แม้นาทีมากที่สุด - มันก็จะยังคงรั่วไหล - แบบคงที่ มันจะสร้างไม่ จำกัด และสิ่งเดียวที่จะช่วยฆ่ามันได้ก็คือเริ่มต้นใหม่เพื่อทำสิ่งเดียวกันในภายหลัง

นี่ไม่ใช่วิธีที่คุณควรตั้งค่ากระบวนการพื้นหลัง - อย่างน้อยไม่ใช่ในความคิดของฉัน อย่างที่ฉันคิดว่าควรมีจุดรีเซ็ต - การรีเฟรชสคริปต์และสถานะของมัน execวิธีที่ง่ายที่สุดที่จะทำนี้ด้วย คุณสามารถแทนที่กระบวนการปัจจุบันด้วยกระบวนการใหม่ - ในขณะที่รักษา PID เดียวกัน - แต่ยังคงเรียกใช้กระบวนการใหม่

ตัวอย่างเช่นหากperlสคริปต์ของคุณควรกลับเป็นจริงหลังจากจัดการจัดการการแก้ไขไฟล์ในไดเรกทอรีที่ได้รับการตรวจสอบเรียบร้อยแล้ว:

#!/bin/sh
trap 'rm -rf -- "${ldir%%*.}"' 0 INT
_exec() case    $#      in
        (0)     exec env -  "PID=$$" "ldir=${TMPDIR:-/tmp}/." \
                            "$0" "$@";;
        (*)     export "$@" "boff=0" "lmt=30"
                exec        "$0" "$@";;
        esac
[ "$PID" = "$$" ] || _exec
[ -w "$ldir" ]  &&
case    $ldir   in
(*.)    until   mkdir -- "$ldir"
        do      :& ldir=$ldir$$$!
        done    2>/dev/null
;;
(*)     until   /someperlscript.pl ||
                [ "$((boff+=1))"  -ge "$lmt" ]
        do      [ -d "$ldir" ]     &&
                sleep "$boff"      || ! break
        done
;;esac  &&      _exec ldir PID

... หรืออะไรทำนองนั้น บางสิ่งบางอย่างที่ช่วยให้เครื่องจักรพื้นฐานเบื้องหลังลูปรีเฟรชเป็นระยะ ๆ

ฉันตอบคำถามเหล่านี้ไม่กี่คำ แต่ฉันมีความรู้สึกอบอุ่นที่สุดสำหรับคำตอบของ @ WalterA ฉันทำจนกระทั่งฉันสร้างคำตอบของตัวเอง ...

ส่วนตัวฉันมักจะปรับปรุงสคริปต์ Perl เพื่อที่จะเขียนรายการบันทึกอธิบายเกี่ยวกับความล้มเหลวและส่งการแจ้งเตือนไปยังผู้ดูแลระบบ

หากสคริปต์ Perl หมายถึงการทำงานต่อไปกำลังรอเหตุการณ์การเปลี่ยนแปลงจากระบบไฟล์เหตุใดจึงล้มเหลว

หากมันไม่ล้มเหลวทำไมคุณถึงกังวลว่าการห่อไว้ในสคริปต์เพื่อเริ่มต้นใหม่อย่างไม่สิ้นสุด?

หากมีปัญหาเกี่ยวกับการกำหนดค่าหรือการพึ่งพาที่ใช้งานไม่ได้ซึ่งทำให้สคริปต์ Perl ยกเลิกเพียงเริ่มต้นใหม่ครั้งแล้วครั้งเล่าไม่น่าจะทำให้ทันใดนั้นก็เริ่มทำงานได้

คุณรู้คำนิยามของความบ้าใช่มั้ย (ทำสิ่งเดียวกันซ้ำแล้วซ้ำอีกคาดหวังผลลัพธ์ที่ต่างออกไป) แค่พูด. ;-)