perl - 如何将 UNIX 路径转换为 ​​DOS 路径

Question

需要正则表达式或其他一些方法将 UNIX 路径转换为 ​​DOS 路径。

我有

C:/My Document/Photo.gif

需要

C:\My Document\Photo.gif

Answer 1

#!/usr/bin/perl

use strict; use warnings;
use File::Spec::Win32;

print File::Spec::Win32->canonpath('C:/My Document/Photo.gif'), "\n";