小编use*_*241的帖子

我使用这个代码,它取两个不同位置的经度和纬度,并计算我的代码之间的距离

protected void Button1_Click(object sender, EventArgs e)
{
    double lat1= Convert.ToDouble(TextBox1.Text);
    double lon1= Convert.ToDouble(TextBox2.Text);
    double lat2= Convert.ToDouble(TextBox3.Text);
    double lon2= Convert.ToDouble(TextBox4.Text);

    var rlat1 = Math.PI * lat1/180;
    var rlat2 = Math.PI * lat2/180;
    var rlon1 = Math.PI * lon1/180;
    var rlon2 = Math.PI * lon2 / 180;
    var theta = lon1-lon2;
    var rtheta = Math.PI * theta/180;
    var dist = Math.Sign(rlat1) * Math.Sign(rlat2) + Math.Cos(rlat1) * Math.Cos(rlat2) * Math.Cos(rtheta);
    dist = Math.Acos(dist);
    dist = dist * 180/Math.PI;
    dist = dist * …

我必须用 perl 做一个程序。我对它很陌生。任务是会有目录，里面会有许多子目录。每个子目录包含更多的子目录。最后将在子目录链的末尾有文件。如果文件格式是“.TXT”，我应该删除包含 .TXT 文件的主目录旁边的子目录。

例如 raghav\abc\ccd\1.txt 那么我应该删除子目录“abc”。

我的代码是

#!/usr/bin/perl
use warnings;
use strict;
use Cwd qw(abs_path);


my $path ="d:\\raghav";

search_all_folder($path);

sub search_all_folder {
    my ($folder) = @_;
    if ( -d $folder ) {
        chdir $folder;
        opendir my $dh, $folder or die "can't open the directory: $!";
        while ( defined( my $file = readdir($dh) ) ) {
            chomp $file;
            next if $file eq '.' or $file eq '..';
            search_all_folder("$folder/$file");  ## recursive call
            read_files($file) if ( -f $file );
        }
        closedir …