主页 / coding / 问题 / 77024785
Accepted
sjri
Asked: 2023-09-02 00:43:03 +0800 CST

如何克隆具有特定条件的细胞系？

  • 772

我在文本文件中有一些超链接。我想将第一行上的链接与下一个相邻行进行比较，并根据数字创建链接？。例如，

考虑下面的相邻链接

https://gp.to/ab/394/las69-02-09-2020/
https://gp.to/ab/394/las69-02-09-2020/4/

这里的输出文件将是：

https://gp.to/ab/394/las69-02-09-2020/
https://gp.to/ab/394/las69-02-09-2020/2/
https://gp.to/ab/394/las69-02-09-2020/3/
https://gp.to/ab/394/las69-02-09-2020/4/

同样，我需要对其他线路做同样的事情......

输入示例：

https://gp.to/ab/394/las69-02-09-2020/
https://gp.to/ab/394/las69-02-09-2020/4/
https://gp.to/ab/563/dimp-02-07-2023/
https://gp.to/ab/39443/omegs-02-07-2023/
https://gp.to/ab/39443/omegs-02-07-2023/3/
https://gp.to/ab/39443/lis-22-04-2018/
https://gp.to/ab/39443/lis-22-04-2018/2/
https://gp.to/ab/39443/madi-22-04-2018/
https://gp.to/ab/39443/madi-22-04-2018/5/

输出示例：

https://gp.to/ab/394/las69-02-09-2020/
https://gp.to/ab/394/las69-02-09-2020/2/
https://gp.to/ab/394/las69-02-09-2020/3/
https://gp.to/ab/394/las69-02-09-2020/4/
https://gp.to/ab/563/dimp-02-07-2023/
https://gp.to/ab/39443/omegs-02-07-2023/
https://gp.to/ab/39443/omegs-02-07-2023/2/
https://gp.to/ab/39443/omegs-02-07-2023/3/
https://gp.to/ab/39443/lis-22-04-2018/
https://gp.to/ab/39443/lis-22-04-2018/2/
https://gp.to/ab/39443/madi-22-04-2018/
https://gp.to/ab/39443/madi-22-04-2018/2/
https://gp.to/ab/39443/madi-22-04-2018/3/
https://gp.to/ab/39443/madi-22-04-2018/4/
https://gp.to/ab/39443/madi-22-04-2018/5/

我试过..

# Function to extract the number from a URL
def extract_number(url):
    parts = url.split('/')
    for part in parts[::-1]:
        if part.isdigit():
            return int(part)
    return None

# Read the input file
with open('input.txt', 'r') as input_file:
    lines = input_file.readlines()

output_lines = []

# Iterate through the input lines and generate output lines
for i in range(len(lines)):
    current_url = lines[i].strip()
    output_lines.append(current_url)

    if i + 1 < len(lines):
        next_url = lines[i + 1].strip()
        current_number = extract_number(current_url)
        next_number = extract_number(next_url)

        if current_number is not None and next_number is not None:
            for num in range(current_number + 1, next_number):
                new_url = current_url.rsplit('/', 1)[0] + '/' + str(num) + '/'
                output_lines.append(new_url)

# Write the output to a file
with open('output.txt', 'w') as output_file:
    output_file.writelines(output_lines)

但我没有得到想要的输出。

2 个回答

  1. 这是 R 中解决该问题的一种方法。我们创建一个函数extrapolate_link并使用purrr::accumulate它。然后我们的unlist结果。

    library(purrr)
library(readr)
library(stringr)

z <- "https://gp.to/ab/394/las69-02-09-2020/
https://gp.to/ab/394/las69-02-09-2020/4/
https://gp.to/ab/563/dimp-02-07-2023/
https://gp.to/ab/39443/omegs-02-07-2023/
https://gp.to/ab/39443/omegs-02-07-2023/3/
https://gp.to/ab/39443/lis-22-04-2018/
https://gp.to/ab/39443/lis-22-04-2018/2/
https://gp.to/ab/39443/madi-22-04-2018/
https://gp.to/ab/39443/madi-22-04-2018/5/"


extrapolate_link <- function(x, y) {
  x_ln <- length(x)
  if (x_ln > 1) {
    x <- x[x_ln]
  }
  res <- sub(pattern = x, replacement = "", x = y) |> 
    readr::parse_number()
  
  if (!is.null(attr(res, "problems"))){
    return(y)
  }
  if (is.numeric(res)) {
    return(paste0(x, rep(seq(4)[-1]), "/"))
  }
  stop("something went wrong.")
}


str_split(z, pattern = "\n") |>
  unlist() |> 
  accumulate(.f = extrapolate_link) |> 
  unlist()

#>  [1] "https://gp.to/ab/394/las69-02-09-2020/"    
#>  [2] "https://gp.to/ab/394/las69-02-09-2020/2/"  
#>  [3] "https://gp.to/ab/394/las69-02-09-2020/3/"  
#>  [4] "https://gp.to/ab/394/las69-02-09-2020/4/"  
#>  [5] "https://gp.to/ab/563/dimp-02-07-2023/"     
#>  [6] "https://gp.to/ab/39443/omegs-02-07-2023/"  
#>  [7] "https://gp.to/ab/39443/omegs-02-07-2023/2/"
#>  [8] "https://gp.to/ab/39443/omegs-02-07-2023/3/"
#>  [9] "https://gp.to/ab/39443/omegs-02-07-2023/4/"
#> [10] "https://gp.to/ab/39443/lis-22-04-2018/"    
#> [11] "https://gp.to/ab/39443/lis-22-04-2018/2/"  
#> [12] "https://gp.to/ab/39443/lis-22-04-2018/3/"  
#> [13] "https://gp.to/ab/39443/lis-22-04-2018/4/"  
#> [14] "https://gp.to/ab/39443/madi-22-04-2018/"   
#> [15] "https://gp.to/ab/39443/madi-22-04-2018/2/" 
#> [16] "https://gp.to/ab/39443/madi-22-04-2018/3/" 
#> [17] "https://gp.to/ab/39443/madi-22-04-2018/4/"

    创建于 2023-09-01，使用reprex v2.0.2

    • 1
  2. Best Answer

    这是另一种选择。它假设顺序是相关的，因此如果在中间不同的 URL 中找到相同的 url（或其基础，没有尾随数字），则它将是“新的”。

    library(dplyr)
tibble(url=vec) %>%
  mutate(
    urlbase = sub("/\\d+/?$", "/", url),
    num = as.integer(sub("/$", "", stringr::str_extract(url, "(?<=/)(\\d+)/?$"))),
    grp = consecutive_id(urlbase)
  ) %>%
  group_by(grp, urlbase) %>%
  mutate(
    num = if (n() > 1) coalesce(num, row_number()) else num
  ) %>%
  reframe(
    num = seq.int(max(coalesce(num, 1L))),
    url = paste0(urlbase, if_else(num == 1L, "", paste0(as.character(num), "/")))
  )
# # A tibble: 15 × 4
#      grp urlbase                                    num url                                       
#    <int> <chr>                                    <int> <chr>                                     
#  1     1 https://gp.to/ab/394/las69-02-09-2020/       1 https://gp.to/ab/394/las69-02-09-2020/    
#  2     1 https://gp.to/ab/394/las69-02-09-2020/       2 https://gp.to/ab/394/las69-02-09-2020/2/  
#  3     1 https://gp.to/ab/394/las69-02-09-2020/       3 https://gp.to/ab/394/las69-02-09-2020/3/  
#  4     1 https://gp.to/ab/394/las69-02-09-2020/       4 https://gp.to/ab/394/las69-02-09-2020/4/  
#  5     2 https://gp.to/ab/563/dimp-02-07-2023/        1 https://gp.to/ab/563/dimp-02-07-2023/     
#  6     3 https://gp.to/ab/39443/omegs-02-07-2023/     1 https://gp.to/ab/39443/omegs-02-07-2023/  
#  7     3 https://gp.to/ab/39443/omegs-02-07-2023/     2 https://gp.to/ab/39443/omegs-02-07-2023/2/
#  8     3 https://gp.to/ab/39443/omegs-02-07-2023/     3 https://gp.to/ab/39443/omegs-02-07-2023/3/
#  9     4 https://gp.to/ab/39443/lis-22-04-2018/       1 https://gp.to/ab/39443/lis-22-04-2018/    
# 10     4 https://gp.to/ab/39443/lis-22-04-2018/       2 https://gp.to/ab/39443/lis-22-04-2018/2/  
# 11     5 https://gp.to/ab/39443/madi-22-04-2018/      1 https://gp.to/ab/39443/madi-22-04-2018/   
# 12     5 https://gp.to/ab/39443/madi-22-04-2018/      2 https://gp.to/ab/39443/madi-22-04-2018/2/ 
# 13     5 https://gp.to/ab/39443/madi-22-04-2018/      3 https://gp.to/ab/39443/madi-22-04-2018/3/ 
# 14     5 https://gp.to/ab/39443/madi-22-04-2018/      4 https://gp.to/ab/39443/madi-22-04-2018/4/ 
# 15     5 https://gp.to/ab/39443/madi-22-04-2018/      5 https://gp.to/ab/39443/madi-22-04-2018/5/

    数据

    vec <- c("https://gp.to/ab/394/las69-02-09-2020/", "https://gp.to/ab/394/las69-02-09-2020/4/", "https://gp.to/ab/563/dimp-02-07-2023/", "https://gp.to/ab/39443/omegs-02-07-2023/", "https://gp.to/ab/39443/omegs-02-07-2023/3/", "https://gp.to/ab/39443/lis-22-04-2018/", "https://gp.to/ab/39443/lis-22-04-2018/2/", "https://gp.to/ab/39443/madi-22-04-2018/", "https://gp.to/ab/39443/madi-22-04-2018/5/")
    • 1

相关问题