Cách xóa tệp từ mã fortran?

Question

Tôi cần xóa tệp khỏi mã Fortran. Tôi đang ở số ubuntu 12.04, x86_64. Tôi không hiểu tại sao quy trình được mô tả bên dưới không hoạt động. Xin hãy giúp tôi làm rõ tình hình (trên thực tế, trên một số hệ thống, nó hoạt động, nhưng không phải của tôi).

Có một cách khác: Tôi có thể gọi lệnh unix trực tiếp rm -f file, nhưng tôi muốn biết có gì sai với phương pháp của mình. Cảm ơn bạn.

Bước 1. làm cho kịch bản del.sh đơn giản và đặt nó vào ~/bin

$ cat del.sh 
[ $# -ge 1 ] && rm -f $1 
$ chmod u+x del.sh; mv del.sh ~/bin 

Bước 2. Mã Fortran, del.for:

character*100 cmd 
character*30 file 
call getarg(1,file) 
write(cmd,100) file 
100 format('source del.sh ',a30) 
call system(cmd) 
end 

Bước 3. Biên dịch và chạy :

$ ifort -o del del.for 
$ ./del file 

Kết quả:

sh: 1: source: not found 

Điều gì là sai? Tệp 'source del.sh' đơn giản hoạt động, nhưng không phải từ mã Fortran ... gây nhầm lẫn.

Từ mã Fortran:

100 format('del.sh ',a30) 
100 format('bash del.sh ',a30) 

công việc một cách hoàn hảo, nhưng

100 format('sh del.sh ',a30) 

không hoạt động. Tôi đã cài đặt bash nhưng không có csh. Cảm ơn bạn.

Answer 1

Vì vậy, trong tập lệnh trình bao, bạn không chỉ định chương trình trong dòng đầu tiên. Hãy thử thêm:

#!/bin/bash 

làm dòng đầu tiên trong del.sh. Khi bash khởi động nó mà không có nó, nó có thể chạy script với/bin/sh, không/bin/bash như bạn mong đợi. (Tôi không thể xác nhận ngay bây giờ, nhưng tôi biết tôi đã gặp rắc rối trong quá khứ nếu tôi sử dụng mã bash-cụ thể nhưng quên để đưa các shebang ở đầu trang.) Khi bash bắt đầu nó với dòng đó, nó sẽ thấy rằng nó cần phải được thực hiện với bash thay vào đó. Kể từ khi mã của bạn xuất hiện để cho thấy rằng gọi nó như là một đối số bash trực tiếp hoạt động, tôi muốn nói điều này sẽ khắc phục vấn đề của bạn. Tất cả tốt nhất.

Answer 2

source là nội trang hệ vỏ tải một tập lệnh khác trong quy trình hiện tại (trái ngược với việc chạy tập lệnh trong quy trình con).

Bạn không cần source khi gọi một tập lệnh từ Fortran, như bạn đã phát hiện ra. Cả hai del.sh và bash del.sh đều hoạt động và một trong hai cách đó đại diện cho cách bạn nên làm.

Answer 3

Tại sao không để Fortran thực hiện công việc cho bạn? Mã này là di động (so sánh bình luận của cốc):

open(unit=1234, iostat=stat, file=file, status='old') 
if (stat == 0) close(1234, status='delete') 

Answer 4

Gọi hàm shell để thực thi lệnh của bạn, trình bao phụ thuộc vào hệ thống/môi trường. Kể từ khi bạn nhận được sh: 1: source: not found, vỏ được gọi không hiểu lệnh source, được xây dựng là bash.Trên Ubuntu, theo mặc định, /bin/sh được liên kết với /bin/dash, không phải /bin/bash và dash không hiểu source. Thay vào đó, sử dụng . (portable) dựng sẵn thay vì source:

100 format('. del.sh ',a30) 

nên làm việc, nếu del.sh là trong $PATH của bạn.

Đây là lý do tại sao tôi nghĩ rằng những nên mọi công việc:

100 format('sh del.sh ',a30) 
100 format('bash del.sh ',a30) 
100 format('del.sh ',a30) 

Nhưng bạn có nó khác nhau? Trong trường hợp đó, nhịp đập tôi :)

Answer 5

Vui lòng thử

call system(trim(cmd))